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※ 最新 ソフ トカ タロ グ を ご 希望 の 方 は X1, PC-8001mk II,FM-7, パソ ピア 7, 日 立 レ ベル 3 
эр MZ-700 の 機種 を 明記 の 上 ハドソン 東京 まで 〒60 円 を 添え て , お 申し 込み 下さ い 。 

※ 通 信販 売 は ソフ ト 名 , SERIAL No. を 明記 の 上 お 近く の ハドソン 上 7 係 ま で お 送り 下さ い 
※NO 表 示 の G は グラ フィ ッ ク RAM が 必要 です 
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コモ ロン 7*0» 


mM ^ < ШЕЕ ooo. EITA $999 r j жынын ^ < NENNEN 06666 СТА 6066 


мот, зага <Ç E B 


4 人 マー ジャ ヤン 誌上 公開 す て ハ イ に 気 を つけ て ふり テン に 注 さあ いよ いよ リー チノ あま りあ せる と チョ ン ボ も あり ます 
意 し まし ょ う 。 よ 。 


さあ ぁ ゲ ー ム スタ ー ト 。 あ な だ は 木 の 下 か が から の ぼっ て くる, BANERNE 黄 へ ビ 8 匹 に の ぼら れる と , DD, 
ぼり 人 間 を 叩き 沙 せ 。 青 ヘビ に は 気 を つけ て あな だ の 運命 は ? HELP / 


ひつ じ や ー い X-1052-G FM ¥3,800 


€ 4983 HUDSONSOFT 

ト FF ト トト トト トト トト トト КЕЕН 
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з 7 4 
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3000040 11153114 000400 13)34:000468 —:1133935:000450 BV ss 


73335008450  :lij3)13:008450 


00, 三 匹 …… 数 が ふえ て お お あわ 苦労 の か ひい が あり まし だ 。 可愛 い 村 
Ох 娘 も コン ニチ ワ 


miniHuBASIC コ ン パ イラ ー HuWP( ヒ ュー ワー プロ ) 
miniHuBASIC コ ン パ イラ ー は ,、 ゲー ム ア プ リケーション を 作成 する こと 
発 され た 整数 型 Tiny BASIC コ ン パ イラ ー で す 

Hu BASIC と 同様 の 文法 に 従っ て 、 プロ グラ € 成 が 可能 で , 


Hu WP は , パソ コン 本 体 と 純正 プリ ンタ ー に 漢字 ROM の 組み 合せ で 使用 し ます 。 片 か な , 
平 が な , ЖҚТ, 特殊 マー ク な ど は キー ボー ド か ら 直 接 入 力 で きま すし , 漢字 の 入力 も , 
変換 方 式 で 簡単 に 入力 で きま す 。 従来 まで の テー プ ベ ー ス で は 困難 で あっ た , か 
ト RUN に より HuBASIC と 同様 、 効 率 わ の よい デバ ッ ク 作 業 を する な 漢字 変換 機能 も , 中 に 同 柚 さ きれ て いる か な 漢字 変換 R OM を 使用 する 事 に より 本 体 の メ 
デバ ッ グ の の ち , コン パイ ラー に より プロ クラム を マシ ン 語 に 変換 する と スピ ー ド ұлы モリ ー 空 間 を 占 有 する 事 な く , 約 6400 字 の 読み 方 辞書 を 持っ て お り ま す 

ИЕА E L. ИКО БИО БЕ ЕЕ. WU PISO T vv LEDER, 編集 に お いて は , コン トロ ー ル コー ド に よる 強力 な 編集 モー ド が あり 、 ЖЖ 
ー プ する と 即 実行 可能 な ソフ ト に する こと が で きま す 。 | | の コピ ー, 移動 、 インサート, デリ ー ト な ど 自 由 自在 で すし 、 片 か な 、 ЖҰ, 特殊 マー ク 


この コン パイ ラー は ゲー ム ア プ リケーション に 必要 な 命令 語 を 最低 限 フォ ロー 366189 で は 倍角 , 全角 が , 英 数 字 で は 倍角 、 全角 , 半角 が 自由 に 選べ , か つ ア ンダ ー ラ イン も 簡 
目的 で 開発 され た た め 、 フ リー エリ ア は HuBASIC の 2 倍 強 の 約 48KB 確 保 さ ミ れ て いま す 単に 引く 事 が で きま す 


対応 機種 :X1 PC8001mkII, MZ-700 各 \6.000 XR y | PrE, 約 1 分 以内 に 1 ペー ジ 分 を 記録 , 再生 で きま すし , 1 ペー ジ に 
は 全角 文字 で 2560 文 字 入 力 で き , 本 体 の メモ リー に は 2 ペー ジ 分 入力 で きま す 
この ワー ド プ ロモ ッ サ ー ソ フト (HuWP) は , DISK を 使用 し な い 物 の 中 で は 。 最高 と 自負 


し て お り ま すし , 従 来 の DISK ベ ー ス の ワー ド プ ロ セ モッ サー に 勝る と も 劣ら な い 機 能 を 持ち 
トー タル コス ト も 大 変 安価 に な っ て お り ま す 。 対応 機種 :X1 ¥ 24,800 
HUDSON GROUP Ic ハドソン 札幌 /〒062 札幌 市 豊平 区 平岩 3 条 5 1 日 4 番 17 号 コロ ナー ド 平 岸 II201 PHONE:011-821-1538 


R) ハドソン 仙台 /〒980 + ç BR WL is (li 宮 町 1 ] 日 4 番 28 号 PHONE:0222-65-7031 

^ ハドソン 金沢 /〒920 石川 県 金沢 市 本 町 2 J 日 1 番 28 号 PHONE: 0762-23-1263 
ハドソン 東京 /〒102 東京 都 千代 田 区 麹町 4 日 7 番 5 号 麹町 ロイ ヤル ビル 2F PHONE: 03-234-4996 
ハドソン 大 阪 /〒542 大 阪 市 南 区 南船場 4」 日 2 番 18 号 佐野 尾 橋 ビル 5F PHONE: 06-251-1945 
ハドソン USA/2063 CENTER STREET BERKELEY CA 94704 TELEPHONE 415-845-1416 
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1. キ ー ボ ー ド 接続 端子 


2 の セッ yi ピコ ニダ 


キー ボー ドガ ら 出 て いる プラ グ 付 


に 接 


の 端子 


き カ ー ル ケー ブル を 、 


6 . 電 源 ス イッ チ 


続 。 育 面 に も 同じ キー ボー ド 接 続 


端 び が ある の で 好き な 方 に 入れ ら 


れる 。 


7 . イ ンジ ケー ター 部 


つ あ る か ら 
つの キー ボー ド を 同時 


に 接続 し な いよ うに 。 故障 の 原因 


に な り ま す 。 


だ だ し 端子 が 
p= 


POWERIIT IMERIIREAD 
WR I ТЕ [44 p pl の 表示 が あ 


り 、 導 作動 状態 を 示す 。 
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8 . 内 蔵 ス ピー カー 


プ カ ウ シタ ー 1 
カセ ツ ト テ ー プ の 走行 位置 を 示す 。 


4. カ ウン ター リセ ッ ト HS 


カウ シダ 


ウ ピ コー タダ の シセ サイ ザー 音 


を 出す ため の スピ ー カ ー。 痛 面 の 
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音量 調節 ボリ ユー ム (NO33) で 


音量 を 調節 する 。 


「OOO」 に する 。 
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SHARP 


付け る 。 
— — 13. 音量 UP DOWN ボ タン 


ーーー 12. チ ャ ン ネ ル UP DOWN ボ タン 


テレ ヒビ 画面 選択 ボタ ン 


10. コ ンピュータ 


e 


プロ グラ ム に 飽き たら 、 こ の ボタ ン ( 
レビ を 見 る 。 


ンタ ツチ 、 


テ 
7 


11. チ ャ ン ネ ルコ ー ル ボタ ン 


この スイ 


チャ ヤン ネル が 知り だく な つ だ ら 


ツチ を 押す 。 


ディ スプ レイ 
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一 一 一 左右 人 一 > 
アル ファ ベッ ト の 


ル ロ ッ クキ ー 
クレ で お あお ざと 、 wg 


ドキ ーーー カ ナ 文 


キーーー ス ペー ス 
れる の に 使う 。 

コン トロ ー ル キー 
Olê E. 回 は 下 、 
ジリ ター ン キ ー 
の キー を 押す と 、 


ずつ あり 、 タイ プラ イタ ダー 
大 文字 ・ 小 文字 の 切り 替え 


ご れ を 押し た まま の 状態 に 
つと 大 文字 で 入力 で きる 。 


ー と 一 緒 に 押す と 小文字 に な る 。 


字 を 使う と こき に ロッ し て 
( 何 も 書 が れ て いな い 空 白 


カー ソル を 移動 する の 
0186. 回 は 左 。 

1 行 の 文字 列 を 入力 し だ 
その 内 容 が 記憶 され 、 カ ー 


ソル が 次 行 の 頭 に 戻る 。 (以後 CR キー と 呼ぶ ) 


g ク リア ホー ムキ ーー その まま この キー を 押す と 、 画 


面 に 表示 され て いる 内 容 は 


消え ず に カー ソル が 画面 を 


上 に 戻る 。 シフ トキ ー を 押し な が ら 押 す と 、 画 面 に 表 


示さ れ て いる も の も 消え 、 
h イ ン サ ー ト デリ ー ト キー 


18. デ ィ ス プレ イ テ レ ビ 
コン トロ ー ル キー 


キー ボー ド 


カー ソル が 画面 キ 上 に 。 
その まま ご この キー を 押す 


と 、 カ ー ソ ル の 左側 の 文字 が 抹消 され る 。 シ フト キー 
を 押し な が ら 押 す と カー ソル 位置 に 空白 スベ バー ス を 挿 
入 で きる 。 誤 つ て 入力 し だ 場合 な ど 、 こ の 位置 に 正 し 
い 文 字 を 入れ て 訂正 で きる 。 リ ピー ト ( 繰 り 返し ) 機 能 
が つい て いる の で 、 め 要 な 長 さ に な る まで 押し 続け れ 


ぱい い 。 


i プレ イク キー シフ トキ ー を 押し な が ら こ の キー を 


押す と 、 プ ログ ラム の 実行 や テー プレ コ 


を 停止 する 。 


ー ダ ー の 作動 


j コン トロ ー ル キー ご の キー を 押し な が ら 他 の キー 
を 押す と 、 様 々 な コン トロ ー ル が で きる 。 だ と えば 、 

q+ オ コン トロ ー ル キー で 「 ビッ 」 と いう ベル の 音 が 出る 。 
グラ ム を 終了 す 


k エス ケー プ キ ー ご の キー は 、 プ ロ 
る と き に 使う 。 


| 水平 タプ キーーー カー ソル を 文字 単位 で 右 に 移動 さ 


せる キー。 文字 列 の 頭 ゾ プロ エ に 便利 。 


m グ ラフ ィ ッ クキ ーーー ブ ラフ ィ ッ フシ ン ボ ル (記号 や 
図形 、 漢 字 ) を 表示 する 。 こ の キー を 押し な が ら 対 応 


する キー を 押す 。 


19. カ セッ トレ コー ダー コン トロ ー ル キー 


の 


ZH 


20. 数 値 入 カ キー( テ ンス 
数 値 入力 の 他 、 シ フト キー と 
の 併用 で ディ スプ レイ テレ ビ 


ー ル が で きる 。 


(詳細 は 24 ペ ー ジ ) 
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(ディ スプ レイ 背面 ) 


39.UHF ア ン テ ナ 端子 
40.VHF ア ン テ ナ 端子 


итии тїї үттүн ттт үтү 
шишиши NT ПП Me 
MUHU LUE NU аца 
WA тт! IAA MOOR 


САДОИ 


15. プ ラグ 付き カー ルケ ー プ ブル 


17. メ イン キー ボー ド — ——| 
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38. テ レビ 切り 替え スイ ッ チ 
37. オ ー デ ィ オ 端子 

36. ビ デオ 入力 端子 
35. テ レビ コン トロ ー ル 端子 
34.RGB IN 端子 


41. ホ ー カ ス 


24. 電 源 コ ー ド 


(本 体 背 面 ) 


22. メ イン 電源 スイ ッ チ "E 
23. フ レー ム ア ー ス て F 
シス テム を 拡張 する 場合 、 外 部 機器 この み レ 
間 を アー スケ ー ブ ル で 結び 、 各 機器 が 安 D s 


定 し だ 動作 を する よう に 配慮 し だ 端子 。 
左右 に 台 1 個 ず つ 。 
ет ご の 


フロ ッ ピ ー デ ィ C 05 


B = 


3 去 使 用 。 

28. rfl +- ЕИ 
29.2234 AT 4 v 2 НЕОН) 
市 販 の ジョ イス ティ ッ ク (アタ リ 社 製 仕 
様 準 拠 品 ) を 接続 し 、 コ ンピュータ ゲー 


25. RGBB 信 号 出 力 端子 
26. デ ィ ス プレ イ テ レ ビ コン ト 
ロー ル 信 号 出 力 端子 


33. 音 声調 整 ボ リュ ー ム ム を 楽し むこ と が で きる 。 

32. オ ー デ ィ オ 出力 端 30. プ リン ター 用 端子 

uu Sm ЕПА 31. リ セッ トス イッ チ 

サイ ザー 音 を 取り 出す た め の 端 子 。 不 完全 な プロ グラ ハム を 実行 きせ 、 コ ン ピ ビュー 
タ が 暴走 を 始め だ 場合 な ど 、 ご この ボタ ン を 押 
し て 前 の 状態 に 戻す こと が で きる 。 


16. フ ァ ン クシ ョ ン キ ー 
た と えば RUN+CR キ ー は 、F5 を 
押す と だ だ ち に 入力 で きる 。 
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INITiMIDTH 88 


OPTION ВАЗЕ 1 

DIM MA12) 

PRINT TUS 3" 9207 әз? AZAA F" 

PR$-INKEY$:1IF PR$-"Y" ОР РЕФ= "М" THEN 68 と LSE59 
IF PR$-"Y" THEN GOSUB é38 


INPUT "セイ レキ ナン 年 2 カレ ンタ トー テ ド スカ "FYE 
INPUT "ナン 月 ノ カレ ンタ ドーラ ニラ テシマ スカ 2 リョ に 1 
IF K1<ü OR K1>12 THEN 88 
Du= 1 
IF Үй MOD 4-й THEN DU=2 
IF YƏ MOD 188-0 THEN Du=1 
IF Yà MOD 488-8 THEN Dii=2 
ON DU RESTORE 258, 268 く カ レン ダー 1 算 今 > と 同じ 
FOR 1=1 TO 12 

READ MX(I) 
NEXT 1 
Y1=Y0-1 
L-2Y1X3&65*INTC( 1/4? -INTCY1/1800 -INTCY1/4080) 
IF K1=1 THEN 210 ELSE FOR IJ-2 TO K1:L=L+MX(IJ-1) :NEXT 
LM=L- INT (LZ7) X7 
LM=LM-5 
IF LM<=9 THEN LM=LM+7 
GOSUB 2?9:LDCATE9, 23:END 
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RUN 
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1 =K1 
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IF J<19 THEN PRINT USING "#", J; ELSE PRINT USING "##", J; 人 7 月 人 画面 に 
LMzLM-*1 £5 LAT 
IF LM>7 THEN LM=1:Y=Y+3 
NEXT J 
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IF PR$-"N" THEN RETURN ELSE GOSUB 668 
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RETURN 
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PRINT S pee س‎ # 
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PRINT " ке к 0" 
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FOR J1=1 TO 2 
PRINT " | | " 
NEXT J1 | | | | 2125-0 $ EDT th (33 
PRINT "и 
NEXT 11 
FOR 2121 TU g 
PRINT " і l | | | | | INS 
NEXT Ju 
PRINT E —— ——— 9) 
RETURN 
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RETURN 
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NEXT 12 
FOR 12=16 TO 3x3?» STEP 15 
DUg ま =MID ま て DU まま 。 12 +2, 1) +МІОФ DUS, 12+5, 1) 
FIID ま て DU ま 。 I2*1, 5) =СНЕФ (&H5S2) +DUO$+" ы 
МЕХТ ІЗ 
LPRINT DU も 
LPR INT СНЕФ <&Н18В,8Н55> ; 
FOR I2=1 TO 5 
FOR 13=11+40 TO I1+7? 
LPRINT СНК$ ‹РЕЕКа 413) > ; 
NEXT 13 
NEXT I2 
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18 INITiNIDTH 49rcLs と どー 8 40Х25/-СТ7/ РСЯ 


28 GOSUB 128 

30 PRINT "マイ リマ スカ (Y or № ? "i 

40 Y ま =INKEY ま (1) iTF Y$-"Y" ОК Y ま = リッ リ THEN Y$-"Yes" ELSE Y$-"No" 

50 PRINT Y$ 

60 IF Y$s"Yes" THEN RUN 

78 CLS 

80 CSIZE 3 

98 LOCATE 18,12:PRINT #0, "NAN" 7-4" 

180 END 

REM Lik? -下 サク セイ 

120 LOCATE 1,12:PRINT "t3?n ナニ ニシ マス カカ ? ";:MO$=INKEY#(1):PRINT МОФ 

138 LOCATE 1,12:1NPUT "ブン ミリ nn? スカ (4-10) "Н 

148 IF Н<>ІМТ‹Н) OR H<4 OR H>19 THEN 128 

158 LOCATE 1,13:INPUT "Z2#" а? テス カ («180800 "jG 

168 IF G<>INT(G) DR G<1 OR G>199 THEN 158 名 種 パ パラ メー ター 
170 LOCATE 1,14:INPUT "ナン マイ テス カ (<100) "jM の 入力 で す 
18а IF M<>INT(M) OR M<1 OR M»188 THEN 1780 

198 LOCATE 1,15:PRINT "ミシン メ ノ アル 39» テテ スカ (Y or № ? ";:Y$-INKEYS(GD 
200 IF Y$-"Y" OR Y$-"y" THEN Y$="Yes" ELSE Y ま ="No" 

210 PRINT Y$ 

228  H-CINT(HX5. 7) —— mm Ж inch に し ます 

230 FOR I=1 TO M 


ュー 
— 
© 


240 LPRINT СНЕФ (27, 56) :СНЕФ (27,82); 
258 LPRINT:LPRINT ТАВ (67); "No. ______ " 
240 LPR INT CHR$ (27, 37,57, Н) 
FOR Ј=1 TO 6 
280 LPR INT " ";MO$;" ";STRING$(73, "—'"5;" "į MOS 
290 NEXT J 
зай ТЕ LEFT$(Y$, 1) ="Ү" THEN LPRINT СНЕФ (12, 10) :6DTO 348 フツ ッ ンター( に 必 力 (ます 
318 LPRINT STRINGS (3, 18) 
3280 LPRINT TÀB(2»:STRING$(78, "-") 
338 LPRINT STRING$(3, 10) 
348 NEXT I 
358 RETURN 
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18 WIDTH 48:INIT:CLS 

ай INPUT ‘оао EAT AN TEI 

80 INPUT RIAN" ヒッツ ヨウ テス "IRE 

48 IF GI»20 THEN 38 

ӘЙ INPUT "724 ー ヒ ツウ ヨウ テ ド スカ "ұма 枚 才 etcC の テー タ を 
60 PRINT "メモ リカ “ヒッ ヨウ テス カカ (Yes or NO) ? "; à 

78 DU$-INKEY$t6lI) их 決め きす 
88 IF DU$-"Y" OR DU$="y" THEN DU$-"Yes" ELSE DU まま = "Мо" 

?@ PRINT DU ま 

188 LPRINT СНЕ (27, 37, 57, іё) 


118 5%-5РАСЕФСІМТ((80-БЕжЗ» /2) ) 
128 FOR I-1 ТО МА 

138 LPRINT ТАВ (66) $ "No. _____ " €«—— — 右上 に No. ---- + iH し ます 
148 LPRINT $$;" r—7r'; 

158 FOR 1-3 TO RE 

168 РЕМИ Ne .Lottugdeoid 

178 — NEXT J 

189 | LPRINT "—4" 

198 POR J-3 TO GI-1 

рай FOR K=g TO 1 

218 IF ¿J MOD 5=8> AND DU*= Yes" AND К=1 THEN LPRINT MID$(S$,4);:LPRINT USIN 
G "###";J; ELSE LPRINT S$; 

228 FOR L-1 TO RE EMELE: 

238 LPRINT "I! "; a Sisi 

248 NEXT L 

254 LPRINT "|" 

270 LPRINT S$$;"L——-"; 

288 FOR L-3 TO RE マス を 書き ます 

298 LPRINT "ーー" ェ 

зай NEXT し 

318 LPRINT "—4" 

зга LPR ИМТ S*;"— 

330 FOR L=3 TO RE 

Зай LPRINT "—" 

358 NEXT L 

340 LPRINT "—4" 

370 NEXT J 

388 FOR K=9 TO 1 

390 IF 4J MOD 5-8» AND DU$-"Yes" AND К=1 THEN LPRINT МІ0% (5%, 4) jiLPRINT USIN 
G "ён"; J; ELSE LPRINT 5%; &— ——— _„. 

aea FOR L=1 TO RE вй =8=33 

418 LPRINT "! "; 

428 NEXT L 

аза LPRINT "|" 

448 NEXT K TORMRESS 


4580 LPRINT 5%; "Ls 

4648 FOR J=3 TO RE 

470 LPRINT "—; 

430 NEXT J 

498 — LPRINT "— " 

500 — LPRINT CHR$ (12) €— — —— — 

518 NEXT I フリ ンタ ー を 方 -A フィー ド し きす 
528 END 


268 NEXT K р 
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REM PRINTER INIT 

ІРРІМТ СНР%ФСЕНІВ, %Н46, 
RETURN 

REM PRINT ROUTINE 


PRINT "ナオ フカ ツノ カー E 


&H2, SHA)? ; CHR$ (HIB, &H352? : 


プ ァ リン ター の イニ シャ ライ ズ " 


zn ? ";: > BOAT F 


18 ІМІТ:МІСОІН 88 

28 OPTION ВАЗЕ 1 

38 DIM M412) 

ай GOSUE 240 

5@ INPUT "オン ネン ノ カ ドー ヒ ツ ヨ ウ テ ド スカ "i YQ 

68 DU=1 

7й IF Үй MOD 4-8 THEN DU=2 

ed IF Үй MOD 166-8 THEN DU=1 

Әй IF Үй MOD 488-8 THEN DU=2 

188 ОМ DU RESTORE 200,218 

118 FOR 1=1 TO 12 DLJ- 1 年 分 ? と 同じ で す 
120 READ MZ 

i38 NEXT I 

148 Yi-Y8-1 

158 L-YiX3465-4INT(G 1/4) -INTCY1/1800 +INT (Y 1/488) 
168 LM=L-INT (L /7) жт 

178 LM=LM-ő 

186 IF LM<=8 THEN LM=LM+7 

:98 GOSUB 278 

208 DATA 31,28,31,38, 31,38, 31, 31, 38, 31, 30, 31 
218 DATA 31,29,31,30,31, 30, 31, 31, 30, 31, 30, 31 
228 RUN 


288 DU=@ 

298 REPEAT 

366 IK$-INKEY$ (15 

818 UNTIL IK$5"6" AND TK まく = リウ の" 

228 PRINT IK$; 

338 DU=VAL «ІКФО 1~12 ま で の 数 し か 

348 IF DU<>1 THEN 398 スカ で さき らい よう に する を の で す 
350 REPEAT 

ЕРТ! TK まま =TNKEY ま て 1) 

3787 UNTIL «IK$»-"8" AND IK$<"3") OR TK まま =CHR ま て 18) 

380 IF IK ま < >CHR も て 13) THEN PRINT IK$::DU-DUX18-/AL (IKE) 

398 IF DU>1 THEN FOR 1=1 TO DU-iELM=LM+MZCT) tNEXT 

айй LM=LM-INT (LM/7 7 x 

410 IF LM=9 THEN LM=7 ) УЕБНОТВОВ В ЕН (29 
420 CLS 

аза LOCATE 32,0:PRINT YA CHRE(SHID); "E" 

448 LOCATE 2,1:PRINT DUiCHR ま CBH1D) j "Я" 

450 CONSOLE 2,23 が 
460 J=1 


478 LPRINT CHR$(&H1B,&H55):8PC (16) 19 TR$ (YO) 1 "ie" x = 
480  LPRINT CHR$(&H1B, &Н55) $ SPC (1) 3S TR$ (DU? š "Я"; CHR (SHIR, &Н52 プン ター に 穫 ЕЛ 


ava PRINT "т 
е 
500 FOR 1=1 TO é 
516 PRINT " |  €"1MID$C"RiKkgt", I, 12 12 Е 
("MIDS C BstkEt", I, 101") {" 
52а PRINT * | E 
| " 

S34 PRINT ° jk  —— амны к-сс 
а 
548 NEXT I 
558 PRINT " | CB» ll «в 

pu 
540 PRINT " i E 

| " 
570 PRINT " 
—— áÓ—————— " 
586 FOR K=1 TO LM-1 жы š 
578 LOCATE 2,KX3:PRINT "MEMO "+ Bo A5GuIFf в MEMO TEARS 
608 МЕХТ К 
618 FOR K=9 TO 1 
é26 FOR LM-LM TO 7 ее ЧИНИВ НЕМАМ 
638 IF JTSMZCDU) THEN "LOOP END" 
548 LOCATE KX39*2,LMX3:PRINT RIGHT$(" "*MID$(STR$GCD,2),251 вов 
450 J=J+1 Ж ` [асна 
る る 8 NEXT LN towcunbossg 
678 LNM= 1 
638 МЕХТ К 
698 GOSUB 820 
786 CLS 


710 GOTO 498 
720 LABEL "LOOP END" 
720 FOR K=K TO 1 


740 FOR LM-LM TO 7 

756 LOCATE Kx3942,LMX3:PRINT "MEMO "; BOoAS/SvIPfr & MEMOI- KAFT 
740 NEXT LM 

776 LM=1 


780 NEXT K 

798  GOSUB 820:LPRINT CHR$ <12) 

500 RETURN 

816 REM PRINT QUT 

828  URAM-&H3888 

838  LPRINT CHR$(&H1B,&H25,8&H37,8&H185; 
840 FOR IsURAM*168 TO URAM*239? 


esa LPRINT CHR$(PEEK3 (199: 

860 NEXT I iB ЕЗ АСТ 
878 FÜR I=URAM+240 TO УРАМ+80ж22-1 STEP 80x3 ZU Ficus 
ese FOR 11-І TO 1+15$ 

870 LPR ИМТ СНЕЖ (РЕЕКӘ (1199; 

?й@ NEXT 11 

918 FOR 11=1+80 TO I+15? 
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' 720 LPRINT CHR$(PEEKa3 (112) ; 


' 938 МЕХТ 11 
948 FOR 11-1%140 TO 1+239 
' 958 LPR INT CHR$(PEEK3 (1122 ; : 

7658 МЕХТ 11 1 
978 NEXT I 
' 988 RETURN H 
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178 
188 
iva 
200 
210 
220 
230 
248 
250 
268 
270 


DIM HK (868) 

INIT 

WIDTH 48:CLS 
COLOR INT (RNDX7 +1) 


PRINT "  жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж " 

PRINT " ж ж" 

PRINT " ж хе 29% ЧУҢ ж" 
PRINT " ж 2 +++ PR INTGUT ス ル ж" メイ ン ル ー チ ン 作 の 
PRINT " ж З *** THE END ж" 

PRINT " ж ж” 

PRINT " жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж" 

LOCATE 3,9:PRINT "ナニ コシ マス カ ? "CHR ま が 5) ; 

ООФ=ІМКЕҮФ (1) :РРІМТ DU を : ( ) 内 の 数 字 5 ELE CHET 
ON INSTR ("123", DUH) GDSUS 218, 500, 164 

GOTO за 

RETURN 17а 

СӨЛДЕ 3 x 

LOCATE 12,16:PRINT #0, "THE END" ENDStS4 

END 


REM MAKE FILE 
INIT:MWIDTH 88 


LOCATE 10, ӨЗРКІМТ "FFM FITA AD F "j ファ イル を 作っ て し ます 


DU も ="" 


UMT/ し まで くり 返す 
=INKEY も (1 


IF ІКФ>-"й" AND ІК%<= "9" THEN DU$-DU$*IK$:PRINT IK$; 
IF &€IK$-CHR$(G&HID) OR ІКФ=СНЕФ (8) ) AND LENGUS$5 >8 THEN DU$=LEFT$ (DUS, (ЕМС 


DU$5-12:PRINT СНКФ (8) ; а 


280 
290 
300 
318 
329 
338 
340 
350 
360 
370 
388 
390 
адай 


чай 
> 


E 


418 


UNTIL ІКФ-СНКФ(132 DR LEN«XDUS$) >5 


TK=VAL (CDU を > 

IF TK> の 9 THEN 220 wv т?тас“ 
ا اچب‎ HS 
MAX=LEN (KO$) 


CLS:LOCATE 8,18 


PRINT "r"; STRINGS (МАХ, "—") i "+"; STRINGS (77-MAX, "—") p "4" j 
PRINT "|";K0$; "| " ;ETRING$(77-MAX, " "Yg" |"; 
PRINT "F";STRING$ (MAX, "—" š "+"; STRING$C?/7-MAX, "—"3) 3 "4"; 
X=MAX+2 
REPEAT 
LOCATE X, 11:DU$SINKEY$(19 
IF DU ま >=" " THEN LOCATE X, 18:FRINT "—";CHR$(&H1F, &H1D) ;DU$; CHR (&H1F, &H1D 


—" j :X=X+1 
IF DU$zCHR$(13» THEN LOCATE X, IB:PRINT "т"; СНЕФ (&H1F ;&H1D) $" |": СНЕФ (&HIF, 


SHTOI g "+"; :Х=Х+1 


426 
аза 
440 
458 
468 
470 
aga 


IF DU$-CHR$(GHIC? THEN X=X+1 
IF DU$=CHR (&H1D?) THEN х=х-1 
IF Х>=79 DR Х‹=МАХ+1 THEN X=MAX+2 
UNTIL ОЦФ=СНЕФ (275 
LOCATE X, 10:РЕІМТ "4"; 56РС (79-х) ; 
LOCATE X, 11:РЕ ИМТ "7 5РС 79-Х) 3 
LOCATE X,12:PRINT "4";SPC (79-0; 
LOCATE 28,28:INPUT "FILE МАМЕ ñ "*CHR$(D;FIS 
IF FI$-"" THEN 490 
СРЕМ "O", #1, "CASO: "+FI# 
PRINT #1, ТК 
FOR 1=343378 TO &НЗЗВЕ 
PRINT #1, СНЕЗ <РЕЕКа 10) { 
MEXT í 
FRINT #1 
CLOSE #1 
RETURN 
REM PRINT OUT 
INIT:WIDTH 48:CLS 
LOCATE 5, 18: INPUT "^*/FILE/2 PRINTOUT シ マス カ "FI 十 
ОРЕМ "I",81,"CAS0: "+Е 1% プリ ンタ ー に 記し て し ます 
INPUT #1, КО 
INPUT #1, КОФ 
CLOSE #1 
Г і 
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с unu 
に 


š шах 
e E L X o3 2 
の т Z Š + 
と 割 d$ C H| b 
こ は ら 数 人 答 数 次 
> ^ 2 fi x の 
? 4 で N ^ て Ë 5 
$43 ? . К J い 数 真 
4<2))? 1B Ë の 2% の 
ち 数 し C 
b が J 55 x 3 
か ЗН (f£ 5% aE 
を 定 だ 2 > `` 
選 で C ufa 
JR き R グ um 
す る キラ て で じ ピ 
る А КҮЛЕ т 
ë Җ を E 1] 
る ば N 聞 は 画 
o £ (< мы 
л а € J W Ë 
の | ¿ 7 > m 
表 入る さき タ れ 
小 J] Wu 1 
が 必 が Z 
出 N x= 2H 90 
t L Z > s= š 
2 À G % £ š 
u n Y & £k 用 
FE っ 1x 
> R # x T E 
А キ ж = る ҢІ 
81:47 
終 を 2 カ ` る 
[ 押 れ だ 画 れ 
з # Ж E ЩЩ 5 
INIT:NIDTH 48 
INPUT "Fug カン メ マ テ * アリ マス カ "FGI 
INPUT "ナッ マイ ヒッ ヨウ テバ スカ ":MI 
IF MI»? THEN 20 放 数 . 大 き さ etc FANT 
INPUT "オオ キサ (オオ キイ (1) ог チイ サイ バ (2)) "ОК Жи 
IF МОТ(ОК-1і OR ОК=2) THEN 28 
ам ОК 60508 120,378 
INIT:WIDTH 40 
INPUT "マタ Е? ЛЛ FIVE マダ と ッ ヨ ウ カ を 入力 ん て 
IF INSTR ("YyN", ШЕЕТФ СҮФ, 1)) < >8 THEN RUN 終る の 続け る の する 
END 
WIDTH 40 
PRINT " й 
PRINT " IZI MON! TUE! WEDI THUI FRI! SATI"€— 82699 
PRINT " —— HI 
CONSOLE 3, 22 
FOR I-1 TO MI 
CLS 
FOR Ј=1 TO 61-1 
PRINT USING " ни; Js 一 (78589 月 か を 記し まず 
FOR L=1 TO 6 
PRINT "| "; 大 きい 方 
NEXT L 
PRINT "|" 
PRINT " 一 ———" 
NEXT J 
PRINT USING " |a": JI: ラン を 作っ て いき す 
FOR L=1 TO 6 
PRINT "| ws 
NEXT L 


Ar H ag dt S rtrt 


Я 


318 PRINT |)” 


320 PRINT " | デデデ ぞ デデデ ۴ 
336 GosuB 7gg €—— HCOPY ルー チン (こと びす 

346 IF I MOD 228 THEN LPRINT СНЕФ (12) 

350 NEXT I 

368 RETURN 


370 WIDTH 88 

380 FOR I=0 TO 1 
390 PRINT " 
460 NEXT I 

410 FOR I-0 TO 1 


420 PRINT " L/I MONITUE НЕО | THU IFRI ISAT | в, 
430 NEXT I B 書 を 書き きす 
448 FOR I=0 TO 1 

458 PRINT " トト ーー キー トー キー トート + トーゴ "j 

460 NEXT I 

478 CONSOLE 3,22 пи 
480 FOR 1=1 TO MI 

490 FOR K=@ TO 1 

5060 FOR J=1 TO GI-1 

518 LOCATE KX*48*6,CSRLIN:PRINT USING tH 

528 FOR M=1 TO é AES 975147) Gd 
538 PRINT "| "j 

540 NEXT M 

558 PRINT "|" 

540 LOCATE KX*48*é,CSRLIN:PRINT " ———əV <s " 
576 NEXT J 

550 LOCATE Kx40+é, CSRLIN:PRINT USING "|#";J; 

590 FOR М=1 TO é 

бай PRINT "|  "; 

618 NEXT M 

628 PRINT "|" 

638 LOCATE KX40+é, CSRLIN:PRINT "ius yy gyn 
648 LOCATE 8,3 

658 МЕХТ К MEE 

568 GOSUB 966 ORP AS 

670 IF I MOD 3-8 THEN LPRINT СНЕФ (12) 

688 NEXT 1 

698 RETURN 


700 ІРКІМТ СНЕФ (27,37,57, 16) 5CHR$ (27,85) 
7160 IB0=&šH3006 

720 FOR J8-1 TO 3 

738 FOR I8-18 TO I808+3°? 

748 LPRINT CHR$(PEEKO9 (10) ) { 

750 NEXT I8 

768 NEXT Jð 

770 REPEAT 


7880 DU$-"" 

778 FOR I0=I0 TO 19+3$ 

вов DU$=DU$+CHR$ (РЕЕКӘ (10) 2 
810 NEXT I8 


820 DU6$-DU$ 
830 MID$(DU0$,5,15-" " 
840 LPRINT DU8$; 


850 LPRINT 00%; 

860 LPRINT 048+ 

878 FOR 10-10 TO 10+39 

88a LPRINT CHR$«(PEEK3«(I802); 
878 МЕХТ 18 


900 UNTIL СНЕФ ‹РЕЕКа (18+4))=" " 
910 FOR I8-(I0-&H30015/40 TO 25 
920 LPR INT 

930 NEXT I8 

940 LPRINT CHRẸ (27, 82) 

958 RETURN 

96й ІРКІМТ CHR$ (27,37,57, 15) 
?70 FOR I0=%H3000 TO &H3000+80x25 
980 LPR INT CHR 囊 (PEEKa (1022; 
990 МЕХТ 10 

1088  LPRINT:LPRINT 

1018 RETURN 
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ЎЗІ n 了 ニ m ネ キャ ン 900 
$*»59n*»523*95 ^ ? 638-580-0008 


MEMO : 


ke»? s 


33” $*-9- p° 了 リ マス 0 ? (Ves or No) B 


t uw d СЗО 5 Б 
あの る る 表 7 м な る 
る Ji 時 が 示 | fk d - 
H に é ZX p ` と 
だ は 印 れ が な 画 に 
EFTE E m у 
7100 


32572 752232 ロー ロー ロロ 


バー ヤジ の 


TER 


rex 


CI に SS は 
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JU 


> ПУ 


м ~ 
zt 


aw \ KA ON (ге 


10 noguequiq 


10 оцвпАр 


ӘРШЕКУ 


]. m E ож 
HZ m R з „л ЫШ v 
25 rw ose eom EY に дї を 
ғыт J FL МЕ wm d 
i wu. cub m qu = cp qno 
> ë > J ë mu 42 d 
は y g |" Z S W wu 
E X 742 M XN (2 
ま | X Box а 5 
ZE OOD VAT? 
EEA mE T k 5 y 
S A^ TA 7 5 E Е 
E Ë Т ДЕ mi 
L 221» 2 oy 次 は い 
た š 4 2 Ps 2 s= > 〈 
お £ メイ b A HRK し b 
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я 
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ут 
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339 572) 7 (Yes or Nol 


= リロ 


ІМІТ:МІСІН 48 
COLOR INT <(КМОЖ? > +1 


PRINT " жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж" 

PRINT " ж ‚ ож" 

PRINT " x 1 +++ NEW рата サク セイ x" 

PRINT " x 2 ・・・ DATA シュ ウリ ョ ク x" 

PRINT " ж З +++ THE END x" сё Жы Тед 
PRINT " x x" 

PRINT " жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж" 

PRINT ТАВ 10); "ナニ ラ シ マ スカ ?"; 


DU=UAL (INKEY ま て 1)) : IF DU>9 AND DU<4 THEN PRINT DUiCHR ま K と る ) ELSE BEEP:GOTO 118 
INIT 
ON DU GOSUB 260,830, 150 
GOTO 18 
ファ イル を クロ ワーズ "ずる 
CSIZE 3 END さ せ て | ます 
LOCATE 12,14:PRINT #8, "THE END" 
LOCATE 80, 20:ЕМО 
REM 1 ・・・ МЕН рата サフ セイ 
CLS 
LOCATE 5, 10:INPUT "テー ター ノ ファ イル メイ ñ ";00$ 
LOCATE ð, 18:PRINT "5-2? э {LF KEY э オシ テ 29794" 
IK$=INKEY$ (1) 
(OPEN) "О", #1, "CAS: "+00Ф 
БЕТ リル を オフ シン ずる 
LOCATE 0,7:PRINT “ES NN 2? +"; 
DU も = ин 
FOR І-і TO 3 
REPEAT 
ІКФ=ІМКЕҮФ (1) 
UNTIL ІКФ>= "0" AND ІКФ<= "9" 
PRINT IK$; 
DU$=DU$+ IK$ 
NEXT I 
REPEAT 
IK$=INKEY$ (1) プー タ を 入る 
UNTIL (IK$>="0" AND IK$4-"9") OR ІКФ=СНЕФ (13) 
IF ІКФ=СНЕФ (13) THEN 470 
PRINT "-";IK$; 
DU$-DU$*IK$ 
REPEAT 
IK$-INKEY$ (1) 
UNTIL IK$»-"8" AND ІКФ< = "9" 
PRINT IK$ 
DU$-DUS$*IK$ 
PRINT #1,DU$ 
LOCATE 8,9:LINE INPUT "シド ュ ウ ショ ñ ? "«*CHR$(24);DU$:DU$-MID$ (DU$, 12) 
IF DU ま ="" OR LENCDU ま ) »58 OR INSTR (DU$, 2<>8 THEN 480 
PRINT #1,00$ 文字 タリ の 文字数 を 与え る EM E EASED лити! 
LOCATE 0,13:LINE INPUT "オマ エ ñ ? "+CHR$(2&)iDU$:DU$=MID$ (DUS, 9) 
IF DU$-"" OR LENCDU ま ) >20 OR INSTR (DU#, "@")<>@ THEN 518 
PRINT #1,DU$ 
LOCATE й, 15:LINE INPUT リラ ミド フワ ウロ ド フ コウ N ? "+СНЕФ (26) :DU$:DU$-MIDS$ (DU$, 1629 
IF DU$-"" OR LENCDU ま ) »30 OR INSTR (DU$, "9")«»0 THEN 540 
PRINT #1,DU$ 
LOCATE 0, 17:LINE INPUT "MEMO : "4CHR$(26?;DU$:DU$-MID$ (DU$, 8) 
ТЕ LEN«DU$) »160 THEN 578 
DUS$-LEFT$(DU$«*SPACES$ (100), 180) 
PRINT #1,00% 
LOCATE 0, 24:PRINT "29° »*-5- 1° アリ マス カ ? (Yes ог No) "; 
IK$-INKEY$(C1):IF IK$-2"Y" OR ІКФ= "у" THEN IK$-"Yes" ELSE IF ІКФ= "М" OR IK$ 
" THEN IK$-"No" ELSE GOTO 420 
PRINT IK$ 
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648 
6568 
660 
670 
688 
698 
таа 
710 
720 
730 
тай 
758 
75а 
770 
780 
790 
gaa 
818 
820 
83A 
вай 
858 
860 
870 
880 


B94 
7080 
910 
920 
°зй 
GOTO 
940 
950 
768 
7760 
788 
990 
1000 
1910 
1920 
1838 
1848 
1050 
1050 
1878 
1080 
1978 
1100 
1118 
1128 
1138 
1148 
1158 
NT 
1168 
ІМТ 
1178 
TE: 
1180 
" M$ 
1198 
1286 
1218 
1228 


UNTIL IK$-"No" 
CLOSE #1 
RETURN 
REM PRINT DATA 


Y$-LEFT$(CYB$, 3) 
IF LEN(YB$2 >3 THEN Y$-Y$*"-"«*RIGHT$(YB: 


J$=JS$ 
N$=NA$ 
T$-TN$ 
M$=ME $ 
CONSOLE 1 
CLS 
LOCATE 28 
LOCATE 1$ 
LOCATE 38 
LOCATE 36 
LOCATE 18 
RETURN 


8, 15, 10, 78 


Sil:PRINT "="; Уз 


,12:РКІМТ J$ 


‚ 14: PRINT N$ 
;16:PRINT "TEL “iTS 
; 18: PRINT "МЕМО :";M$ 


REM PRINTOUT 
WIDTH S&88:CLS 


LOCATE 15 
LOCATE 19? 


;S: INPUT "シュ ウリ ョ クス ルル ファ イル メイ ^ "50 


;195PRINT ">-2% э イル テ KEY Э T2-7 


ІКФ=ІМКЕҮФ (1) 

ОРЕМ "1", #1, "САЗ: "DUS 
LOCATE 8,3:PRINT "リオ ニラ ーシュ リウ リョ クー シマ スカ ? (Yubinbangou or Jivusho or Namae ог Den 
wa or Memo ог 6115 ";СНЕФ (24) 


ut 
aua サイ пн 


デー タ を 路面 表示 する 


プリ ンタ へ の 店 か 


1 
nl S УЗОНПЕ-НЕ Н Е-РС)5 
REPEAT 
IK$-INKEY$£1»5 
ON INT£XINSTR("YyvJ jNnDdMmaa", ІКФ2/2%,.5) GOTO 9480, $51, 960, $78, 780, ?? 0: BEEP: 
18018 
LOCATE 17,.CSRLIN:PRINT "Yubinbangou":GOTO 1000 
LOCATE 17,CSRLIN:PRINT "Jiyusho":GOTO 1688 
LOCATE 17,CSRLIN:PRINT "Namae":GOTO 186068 
LOCATE 17,CSRLIN:PRINT "Denwa":GOTO 168688 
LOCATE 17,CSRLIN:PRINT "Memo":GOTO 18088 
LOCATE 17,CSRLIN:PRINT "All!":GOTO 1000 
DU$=DU$+CHRS (ASC (IK$) АМО &HSF) 
UNTIL INSTR "Аа" +СНЕФ (13) *CHR$ (8) +СНЕФ (&H1D), IK$) < >B 
IF INSTR (CHR$ (8) +СНК$ (&Н10), IK$» 4»0 THEN СКЕЧ 06:6DTO 889 
6 文字 の 表示 そ - だ を /- マ ルル モー だ に ずる 
ы EOF (1? =@ 
LINPUT #1, YB$:LINPUT #1, JS$:L INPUT 81, NA$:LINPUT #1, TN ま : し LINPUT #1, ME $ 
GDSUB 638 
LOCATE 15,24:PRINT "シュ ウッ リョク シマ スカ ? (Yes or No)"; 
REPEAT 
ІКФ=ІМКЕҮФ 1) 
UNTIL INSTR ("YyNn", IK%? < 0 
IF IK$="Y" OR 1К$="у" THEN IK$-"Yes" ELSE IK$="No" 
PRINT IK$; 
IF IK$="No" THEN 12868 
IF «INSTR 4DUS$, "Ү") «505 OR CINSTR (DUS; "А"2<>02 THEM LPRINT ТАВ (1055 "т"; YS 
IF CINSTR (DU$, "7"2<>02 OR (INSTR (DU$, "А"2<>0) THEN LPRINT T&6B(9»51J$:LPRI 
IF «INSTR (OU, "N")<>0) OR CINSTR 00%, "A")<>0) THEN LPRINT ТАВ 15) 1N$:LPR 
IF «INSTR (DUS, "D"»4»0» OR (INSTR (DU$, "А"2<>0>2 THEN LPRINT TAB (20); "TEL " 
LPR ИМТ 
IF CINSTR (DU まま, "M")<>0> OR (INSTR (DU まま 。 "A")<>0) THEN LPRINT ТАВ (1? ; "MEMO : 
:LPRINT 
LPRINT:LPRINT:LPRINT 
НЕМО 
CLOSE Hi 
RETURN 


Ж し スラ ラッ vo тет». X 
= ВИВА < ? М 3 2 £ し と 
і = z ト n 4 г Ë ] 1 E x Ы | ы Ë › 初 れ 検 
ж 52 が UJ XX n. S ) 5 t 5$ X Б / の 期 
ОТКАТ = ыы y 4 | + , l t x ~ J 1 v 
: * МЕН DATA 92%4 だ P в J) Әз ' uw Z わ の と | ШІ 索 
: P: ВЕН, zo d ECT と て 回 まけ 検 こ ぺき 面 や が 
% жұла END X 二名 戻る 名 E € | т. = с ЕБТ X Q れ „> 
ИТ ТРЕЙ ++ 7 を L は ú お 7 大 初 の や が ス 流 写 し て 
dic 1 та l t 1 {ЖО 期 が 修 L p B ば & 
| ご 次 9, д > INEKE T. x К 
六 有 な b Е 画 га я A 5 
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INIT:WIDTH 48:CLS 


COLOR INT (RND*7) +1 

PRINT " жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж " 

PRINT " ж ж" 

PRINT " ж 1 ** NEW DATA サク セイ sc 

PRINT "ж 2 *** EDIT DATA ж" 

PRINT " ж 3 *** DATA シッ リョ ク ж" 

PRINT " ж 4 *** THE END *" 

PRINT " x x" メイ ン 
PRINT " жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж" ルー チン 作り 
PRINT ТАВ <10) s "オニ ラジ シマ スカ ニー マリ < 
DU=UAL (INKEY ま (15))kIF DU АМО DU<S THEN PRINT OU ELSE ВЕЕР:ВОТО 124 
INIT 
QN OL! GOSUB 210,710, 1890, 140 
GOTO 18 
CLOSE 
GSIZE ë 
LOCATE 12,13:PRINT #8, "THE END" END 
END 
REM 1 *** NEM DATA サク セイ 

cts 
LOCATE 5,168: INPLIT "7"-2- jJ ЭЛЛИ М "SDII$ 
LOCATE 0, {SPRINT "DRIVE 1 2 テー イィ テト 9 ЛЬ? KEY 9 Ty»? ауД" 
ІКФ=ІМКЕҮФ (1) 
ОРЕМ "В", #1, "1: "00% 
FIELD #1, 6 AS Ү8%,5! AS 15%, 21 AS МАФ, 31 AS TNE, 19! AS MES 
REPEAT 
CLS 
LOCATE 9, Т:РАТМТ "ізіз 2 A ? ж: 
MITTERE NEW DATA EY 
FOR Ісі ТОЗ 
REPEAT 
ІКФ-ІМКЕҮФС1) 
UNTIL IK$5-"BM" AND IK$<="2%" 
PRINT IKS: 
SLI$=DLI$+ It: £ 
NEXT I 
REPEAT 
iK*$-2INKEYS$COO 
UNTIL «ІКФо-"й" AND IX£$(2"9") OR IK$zCHR$(CiÓ3)D 
IF IX«$zCHR$(13) THEN 478 
PRINT "-"; 15$: 
ides ВН Жы : ра УРАЛ /\“у7Р!С@) 01:77 5лТ= 
REPEAT 文字 型 变数 YB $ T-I RF FHT 
ІКФ-іІМКЕУФб(10 
UNTIL IK*5-"à0" AND ІК%< = "9" 
PRINT MK を 
DU 和 车 = 口 妇 于 + ІКФ 
YB を を =D を 
LOCATE 8,9:LINE INPUT "z*1?»3  ? "*CHR$(P6»5:DU$:DU$-MID$«(DU$, 12) 
IF DU$="" QR LEN(DU $5? >50 OR INSTR (DUIS, "9"54»8 THEN 500 
ЗЕТ JS$-DU$-«"e" 
LOCATE 0,13:LINE INPUT "??І ñ ? "«CHR$(X24):DU$:DU$zMID$ (DUB, 92 
IF DU$-"" OR LEN(DU も ) >20 OR 6NSTR OU "9")<>8 THEN 530 
LSET NA$=DU$+"@" сваи T&toxts)0d8181545 
LOCATE 0, 15:L INE INPUT "ラテ ドン ワウ 0 ロ ドン ゴウ ñ ? "«CHR$(2é6):DL'$:DU$-MID$«(DUS$, 14) 
IF О0Ф="" OR LEN(DUS$) >30 OR INSTR (DU$, "ф") 450 THEN 568 
ЗЕТ TN$-DU$-*"v" 
LOCATE 0,17:LINE INPUT "MEMO : "«CHR$(24):DU$:DU$zMID$(DU$, 8) 
IF ЕМ‹00%) 2100 THEN 590 
DU$=LEFTS (DU$+SPACES (100), 100) 
LSET ME$-DUS$ 
PUT #1,LOF (1) +1 
LOCATE 0,24:PRINT "22" テー ター 力 ” アリ マス カ ? (Yes or No) "; 
IK$=INKEY$<(1):IF IK$-"Y" OR IK$-"y" THEN IK$-2"Yes" ELSE IF IK$="N" OR IK$ 


="п" THEN ІКФ-"Мо" ELSE GOTO 450 


668 


РКІМТ ІКФ 
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670 
680 
cra 
700 
718 
720 
730 
740 
750 
760 
в 
778 
780 
79 
Denu 
вай 
810 
820 
вза 
849 
85а 
840 
870 
ese 
в89й 
ғай 
9180 
Фой 
eae 
одӣ 
954 
ой 
970 
ege 
БЕД 
ава 
1010 
18260 
1030 
iaag 
18958 
1060 
1078 
ава 
1070 
1100 
1110 
1128 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1318 
1320 


UNTIL IK$="No" 

CLOSE #1 

RETURN 

REM 2 ・・・ EDIT DATA 

CLS 

LOCATE 5,19:INPUT "EDIT スル ファ イル メイ ñ "IDUS 


LOCATE 0, I8:PRINT "DRIVE 1 2 テ ~ イィ スケット э 4/7 KEY э オシ ラテ クタ "サイ " 


IK$=INKEY$ (1) 
OPEN "R",#1,"1:"+DU$ 
IF LOF 1) =0 THEN PRINT "yy? ファ イル IN アリ マセ ン 111" 


FIELD #1,6 AS ҮВ%,51 AS ,75%,21 AS NQ ま も,31 AS 
WIDTH 88:CLS 
LOCATE 80,5:PRINT "MN" 22Ұ2%7 サカ シマ スカ ? (Yubi 
a ог Memo ог А11) ":СНРФ (26) { 
DU$zINKEY$4D:PRINT DUSE 
ON INTCINSTR С" Yw3NnDdMmó&a".DU$)/2»«1 БОТО 
REPEAT 
LOCATE 5,7:LINE INPUT "39t*5^"»3^^ 2 8100$ 
UNTIL (LEN(DU も ) =3 OR СЕМ (DU も) = る AND MIDS (00 
FOR 1=1 TO LOF CI? 
GET 81,1 
IF Y8$«4?Dl$ THEN 918 
GOSUB 1430 
GOSUB 15760 
PUT 31, 
NEXT 1 
CLOSE #1 
RETURN 


LOCATE 5,7! INE INPUT "z 1773 ? "IDUS$:IDU$-zMID$(DUS$, 15) 


FOF Ізі: TD LOF TEJ 
GET #1, I 
IF INSTR(JS$,DU$)z0 THEN 1010 
GOSUS 1438 
GOSUS 1578 
PUT 41,1 
NEXT I 
CLOSE 81 
RETURN 


LOCATE S,7:LINE INPUT “FFI 2? "IDUS DUS=MIDS(DUS, 11? 


РОВ Ізі TO LOF £13 
СЕТ #1, I 
IF INSTR (NAS, DLJ$) =й THEN 1:16 
GOSUB 1438 
50SUB 157й 
PUT #',1 

NEXT I 

CLOSE #1 

RETURN 


LOCATE 5, 7:!:L INE INPUT "TEL ? "iDLI$:D!I$-MID$ (DUS, 12) 


FOR 1=1 TO LOF (1) 
GET #1,1 
IF INSTR (TN$,DU$)=0 THEN 121080 
GDSUB 1438 
GOSUB 1576 
PUT #1,1 
NEXT I 
CLOSE #1 
RETLIRN 


LOCATE S,7:LINE INPUT "MEMO ? ";0\%$:04$=М10$ (DU $, 122 


FOR 1=1 TO LOF (1) 
GET %1,1 
IF INSTR(TN$,DU$)-90 THEN 1316 
GOSUB 1438 
GOSUB 1578 
PUT 81,1 
NEXT I 
CLOSE #1 


DATA の EDIT の へ ハッ ター 
CLOSE #1:KILL "1:"+DU$:GOTO 71 
№, 101 AS MES 


bangou or Jivusho ог Namae ог 


?9,820,740,1040,1140, 1248, 1349 


DUS=MIDS (DUS, 205 
34, Lm ور د‎ 


ТЕЛО 


住所 OAX 力 


TELOATI 


MEMOO AD 


| 
- 
| 
| 


1339 
1340 
1350 
1360 
1378 
1380 
1390 
1400 
1410 
1428 
1438 
1448 
1458 
1469 
1470 
1480 
1490 
1580 
1518 
1520 
1530 
1540 
1559 
15460 
1578 
1580 
1590 
1580 
1618 
1520 
1630 
1540 
1650 
1660 
1578 
190 
1 さら 9 
i786 
1718 
i728 
1738 
1740 
1750 
1768 
1776 
1766 
1790 
1906 
1318 
182 0 
1830 
1640 
1850 
1840 
1878 
isse 
1890 
1908 
1910 

1920 
1930 
1940 
890 

1958 
1960 

wa or 
1970 

1980 


RETURN 
FOR I=1 TO LOF (1) 
GET #1,1 
GOSUB 1438 
GOSUB 1570 
PUT #1,1 化 力 EDITLK 
NEXT I тх СІНУ 
CLOSE #1 
RETURN 
REM PRINT бата 
Y ま =YB も 
J$=LEFT$ (JS$, INSTR (JSS, "Ф") - 1) 
N#*=LEF T$ (МАФ, INSTR (NAS, "9"5-15 
T*$=LEFT*$*(TN$, INSTR (TNS, "9"5-1»5 
МФ-МЕ% 
CONSOLE 18, 15,10,70 
CLS ERE 73-4047 
LOCATE 20.11:PRINT "+"; ҮФ 
LOCATE 19,12:PRINT J$ 
LOCATE 30.14:PRINT N$ 
LOCATE 34,16:PRINT "TEL "iTS 
LOCATE 10,18:PRINT "MEMO :":M$ 
RETURN 
REM EDIT DATA 
LOCATE 10, 24:РРІМТ "7*-2-5 キロ エマ フカ ? (Yes or No)": 
REPEAT 
IN ま = INRKEY ま (1) 
UNTIL INSTR "YyYNn"« INS) < >ü 
IF ІМФ-"Ү" DR IN$="v" THEN ІМФ-"Үее" ELSE ІМФ= "Мо" 
PRINT IN$; 
WHILE IN$="Yes": IN$="" 
LOCATE 20,11:PRINT "+"; ҮФ; 
РЕРЕАТ 
LOCATE 21,11:LINE INPUT \%$:\$=4м10$ (Y$, 125 
UNTIL ЧЕМ С’) =3 OR (LEN(CY$) =6 AND МІОФ(ҮФ, 4, 1y="-"y) 
(СЕТ ҮВ%-Ү% 
LOCATE 19,12:PRINT J$; 
LOCATE 19?,12:LINE INPUT J$:.$-MID$(CIS$,160) 
IF 1%-"" DR LEN(CJ$5»550 09 INSTR (J$, "Ф"О2<>0 THEN 1700 
LSET JS$-J$4"e" 
LOCATE 38,14:PRINT N$: 
LOCATE 28,14:LINE INPUT N$:N$sMID$ON$,21)5 
IF N$-"" OR LENCN も ) >20 OR INSTR (N$, "@")<>@ THEN 17480 
(БЕТ NA$-N$«"ve" 
LOCATE 36,146:PRINT "TEL ": 7%; 
LOCATE 40, 14:1 ІМЕ INPUT ТФ: T$=MID$ (T$, 215 
IF T$-"" DR ЕМ‹ТФ) >30 OR INSTR (T$, "@")<>ü THEN 1788 
LSET YN$=T$+"@" 
LOCATE 10,18:PRINT "MEMO :":M$; 
LOCATE 14, 18:1 1МЕ INPUT M$:M$=MID$ (M$, 7) 
IF LEN(M$) 5149 THEN 1328 
МФ=1 ЕҒТ%(МФ%С5РАСЕФ (100), 100) 
LSET ME$=M$ 
НЕМО 
RETURN 
REM PRINTOUT 


WIDTH 860:CLS 
LOCATE 15,5: INPUT 


"2909720 274124 


n 


"DUS 


LOCATE 19,15:PRINT "DRIVE 1 = ティ スケット 9 イレ テ KEY Э オシ テ の 7")>9-^\2) 77 


ІКФ= ІМКЕҮФ (1) 


OPEN "В", #1, "1: "+00% 


IF LOF (12:60 THEN PRINT 


"V? ファ イル In アリ マセ ン !''CT":CLOSE #1:КІ "1: "+00%:60Т0 1 


FIELD 81,6 AS ҮВ%,51 AS JS$,21 AS NA$,31 AS ТМФ, 101 AS ME を 


LOCATE 9,3:PRINT 


“725 59а? DIA P 


Memo ог А11) ":CHR$(24) 


СКЕЧ 1 
DU$= ин 


(Yubinbangou or Jiyusho or Namae or Den 
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1990 REPEAT 
2000 ІКФ=ІМКЕҮФ (1) 
2010 ON INTCINSTR ("YyJ jNnDdMmñAa", IK$) /2*. 5} GOTO 2020, 2020, 2940, 2а5и, 2040, 207 


9:BEEP:GOTO 2898 


2020 LOCATE 17,CSRLIN:PRINT "Yubinbangou":GOTO 2888 
2030 LOCATE 17,CSRLIN:PRINT "Jiyusho":GOTO 2888 
2040 LOCATE 17,CSRLIN:PRINT "Namae":GOTO 2888 
' 2058 LOCATE 17, CSRLINIPRINT "Denwa":GOTO 2086 
: 2060 LOCATE 17,CSRLIN:PRINT "Mermo":GOTO 2080 
' 2970 LOCATE 17,CSRLIN:PRINT "All":GOTO 2090 
: 2080 DU$-DU$«CHR$(ASC(CIK$) АМО &HSF) 
2098 UNTIL INSTR("Aa"*CHR$ (13) «CHR$ (8) «CHR$ (&H1DO , I4$) < yë 
2100 IF INSTR(CHR$(8) «CHR$(&H10), IK$) < >ü THEN CREY 8:GOTO 1948 
2118 CREV & 
2120 FOR 1-1 TO LOF (1) 
2130 GET #1, 1 
2140 GOSUB 1438 
2158 LOCATE 15,24:PRINT "ジウ リョ ク シマ スカ ? (Yes ог No)": 
2168 REPEAT 
2178 ІКФ=ІМКЕҮФ (1) 
2188 UNTIL INSTR ("YyNn", TK うく > 
2198 IF ІКФ-"Ү" OR IK$-"y" THEN IK$-"Yes" ELSE IK$-"Na" 
2200 PRINT IK$; 
2218 IF IK$-2"No" THEN 2288 
2220 IF «(INSTR (DUS, "Y")<>0) OR «INSTR (DUS, "A")«<>0) THEN LPRINT TAB <185 š "FPF" Y$ 
2230 IF (INSTR (DUS, "J") 94». DR CINSTR (DUS, "A")<>0) THEN LPRINT TAB (3) LTS:LPRI 
NT 
2240 IF CINSTR (DUS, "М" 426? OR (INSTR(OUS, "A <>A) THEN LPRINT TAB (15) 1N ま ELPR 
INT 
2258 IF (INSTR (DUS, "D" < 0) OR (INSTR (DUS, "A" 458) THEN LPRINT TAB (20); "TEL " 
PT$:LPRINT 
2268 IF (INSTR (DUS, "M"5<>0) OR CINSTR (DUS, "A"» ¢ >8) THEN LPRTNT TAB (12 ; "MEMO 
" SMS:LPRINT 
2278 LPRINT:LPRINT:LPRINT 
2280 NEXT 1 
2290 CLOSE #1 
2308 RETURN 
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Е ВЫ. 


ІҢ = янь アボ ポロ テク ニカ 


BOMUS CA" ^T 10000 POINTS / / 


KEV FUNCTION 


1903. 04. GS 


B 


コン ピュ ー タ が 詰将棋 の 問題 を つぎ つぎ に 出 
題し ます 。 名 人 に な っ た つも り で チャ レン ジ 
し て くだ さい 

また 、 コ ンピュータ が あな た の 実力 を 判定 し 
ます 。 名 人 へ の 道 は 、 遠 く 険 し いで す が 、 こ 
の マイ コン 詰将棋 で 名 人 へ の 第 | 歩 を 踏み 出 
し て くだ さい 。( グ ラ ィ ッ ク RAM 有 要 ) 


お な じみ の 15 バ ズル 。 コ ン ビ ュー タ が ラン ダ 
ム に 並べ か える パズル を 少し で も 少な い 手 順 
で 、 ЖЕСІ; 2. 3 ご 台 普 で いつ で くださ 
い 。298 回 以内 に 完成 させる こと が で きる と 、 
コン ビ ピュータ と 比較 し な が ら 、 今 の ゲー ム を 
再現 モー ド で 楽し を こと が で きま す 。( グ ラフ 
ィ ッ ク RAM 無 も 可 ) 


宇宙 暦 030407 年 、 木 星 探査 に 出かけ た 君 は 異 | 
星人 と チェ イサ ー を する ハメ に な っ て し まっ | 
た 。 探査 資料 を 地球 に 届け る 任務 を 負っ て い 
る 君 は 異 星人 の 車 と クラ ッシュ し て 爆死 する 
わけ に は いか な い 。 そ し て 、 い か に 走行 距離 
を 伸ばす か 。 君 の 才能 の 見 せ 所 だ 。( グ ラフ ィ 
ッ ク RAM 不 要 ) 


ー ー 一 — 


宇宙 暦 030407 年 、 地 球 に 帰 環 す る 途中 、 君 の 
宇宙 艦 は 突如 エイ リア ン の 給 撃 を 受け た 。 エ 
ТОР Е НАНСИ 
君 は そ モビ ルス ー ツ に 身 を 固め 、 ハ ンマ ー を 持 
っ て 死 の 世界 に も 似 た 宇宙 空間 へ と 向かう 
は た し て エイ リア ン を 撃 減 し て 無事 地球 に 帰 
れる だ ろう か 。( グ ラフ ィ ッ ク RAM 要 ) 


ー ーー ーーーーーーーー 


宇宙 暦 031372 年 、 地 球 は 突然 異 星人 の 攻撃 を 
受け た 。 地 球 人 た ちの 唯一 残さ れ た 武器 が こ 
の コス モト ラベ ラー な の で あっ た 。 君 の 使命 
は この コス モト ラベ ラー を 操っ て 異 星人 ギャ 
ラク シア ン や アト ラン ナー を 消 減 さ せる こと 
で ある 。 敵 の 攻撃 パタ ー ン は 5 つも ある 。 幸 
運 を 祈る 。( グ ラフ ィ ッ ク RAM 要 ) 


広大 な 宇宙 を 舞台 に し た 複合 ゲー ム だ 。 目 的 
の 星 に 向かい ワー プ ト リ ッ プ で フラ イト ・ シ 
ミュ レー ショ ン ゲ ー ム 。 そ の 途中 で 敵 の 宇宙 
船 が 現れ 、 レ ー ザ ー 戦 が 始ま れ ば リア ル タ イ 
ム ゲ ー ム 。 それに 打ち 勝ち 、 無 事 目 的 の 惑星 
に 到着 すれ ば アド ベン チャ ー ゲ ー ム が 始ま る 
(グラ フィ ッ ク RAM 有 要 ) 


「 モ グラ た た き 」 て 遊び な が ら 、 キ ー ボ ー ド 
上 の 各 文 字 の 位置 を 覚え られ る と いう ゲー ム 
高 得 点 を 出せ る 頃 に は 、 キ ー ボ ー ド 配列 も つ 
か め 自 然 に 操作 で きる よう に な り ま す 。 ゲ ー 
ム は 英 数 記号 と カナ の 二 つ の モー ド か ら 選 択 
で きま す 。 ゲ ー ム 終了 後 、100 点 法 で 得点 が 表 
示さ れ ま す 。( グ ラフ ィ ッ ク RAM 不 要 ) 
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€ 1983 iu nsmisorr 
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/ イーー JU ト г” オー 一 ズ 


Bini у RDGRER/ ロボ ポット 発進 / ロボ 
ッ ト ど お し の 空中 戦 だ 。 わ が 方 の ロボ ッ ト は 
エネ ルキ ー 補 充 を し な けれ ば な ら な いな ど ハ 
ン デ ィ が ある が 、 エ ネル ギー 補充 の た め の 移 
動 基地 は 、 ロ ボッ ト と ドッ キン グ す れ ば 敵 の 
ミサ イル が あたっ て も 破壊 され な いと いう メ 
リッ ト も ある 。( グ ラフ ィ ッ ク RAM 不 要 ) 


君 は 腕 き き の ガ ンマ ン 。 お た ず ね 者 の 貼り 紙 
を みて イン ディ アン の 谷 へ や っ て きた 。 イ ン 
ディ アン は サボ テン の 影 か ら サ ッ と 現れ た り 
馬 に 乗っ て 走っ て きた り し て 弓矢 を 打っ て く 
る 。 綿 長 は 特に テ ゴ ワ イ 。 こ の 死 開 に 君 の ビ 
スト ル が 勝つ か 、 イ ン デ ィ ア ン の 弓 失 が 勝つ 
か 。( グ ラフ ィ ッ ク RAM 要 ) 


可愛 いい 顔 し た に ん じん 君 、 な す 君 、 り ん ご 
君 が 攻撃 し て くる ぞ 。 ひ ら り ひら り と 舞い 洲 
ちな が ら .。 WR (7) を ピュ ッ 、 ピ ュ ッ と 田 
す 。 そ し て ぶつ か ろう も の な ら 顔 面 マ ッ サ オ 
に な る くら い 画 面 は マッ カ 。 ク ラッ シュ 音 に 
心臓 ドッ キリ 。 可愛 いい ん だ けど な 。( グ ラフ 
ィ ッ ク RAM 要 ) 


宇宙 グモ が 巨大 が な クモ ノ ス を た どっ て 目 ま く 
る し く 飛 来 し て くる 。 ク モノ ス は 大 きく 揺れ 、 
めまい を 覚え る ほど で ある 。 宇宙 グモ は ふい 
に パラ バラ と ミサ イル を 発射 し た 。 こ の 宇宙 
グモ を な ん な く 撃 退 す る 勇者 は い ず こ に 
(グラ フィ ッ ク HRHAM 要 ) 


さあ 、 大 変 。 頭 の 上 か ら タ マ が ふっ て くる 

ぼや ぼや し て る と お し つぶ され る ぞ 。 マ ジッ 
クハ ンド で タマ を つぶ そう 。 あ れ あ れ 今 度 は 
タマ が 2 つ に 分 か れ て 落ち て くる …。 4 つ に 
増え た 、 今度 は 8 つ だ 。 踏 みつ ぶさ れる と 、 
クシ ャ クシ ャ な 顔 に な っ て ミ ジ メ な 短 足 姿 に 
な っ て し まう 。 (グラフィック RAM 要 ) 


あっ 、 小 さ な 女 の 子 の 頭 に 大 き な リ ン ゴ が 沙 
ちる ッ / 早く た すけ に 行か な くち ゃ 。 だ け 
どこ こ は 毒 へ ビ が ウヨ ウヨ いる 。 毒 へ ビ の い 
な い 時 を み は か ら っ て 人 竹 ざお を 渡る し か な い 
いそ が な くち ゃ 、 い そ が な くち ゃ 。( グ ラフ ィ 
у 2 RAME) 


深い 森 に 住む オバ ケ た ち は 人 間 を みる と すく 
白 幅 に か えて し まう 。 お そろ し い オ パケ だ 
この オバ ケ た ち を や っ つけ る に は 地雷 を 取り 
つけ る し か な い 。 だ か ら オ バケ の 気配 を 感じ 
た ら す ぐ 地 雷 を 埋め ゆめ よ 。 さ も な けれ ば …… 
(グラ フィ ッ ク HRHAM 要 ) 


空 が きれ いな 春の 日 で す 。 お 花 の 咲く 草原 に 
ひっ つじ が 逃げ で まい まし た 。 РУКЕ 
飼い は 外 へ 出 た も の の な か な か つか まり ませ 
ん 。 コ ラッ 症 飼 い ノ ムスメ さん を 見 た り せ ず 、 
し っ か り 羊 を 牧場 の ワク の 中 に 入れ な さい 。 
外 に は こわ い オ オカ ミ が いる の で すか ら ね 。 
(グラ フィ ッ ク RAM 要 ) 
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宇宙 の どこ か ら と も な く 球 形 爆弾 が 落ち て く 
る 。 そ れ も あ と か ら 、 あ と か ら …。 われわれ 
は 伝説 の 都 バ ブル クン ド を 守る た め 、 全 国 各 
地 に ミサ イル 基地 を 建設 し 、 爆 弾 に そなえ た 
よし / | 個 た り と も 逃がさ な い ぞ 。 バ パブ プル 
クン ド の 存続 は われ われ の 肩 に か か っ て いる 
グラ フィ ッ ク RAM 有 要 ) 


悪い オジ サン が いた も ん だ 。 町 中 の 電線 を 切 

て 歩い て いる 。 電線 が な けれ ば “は ど そ ん “ 
に 電気 が こない 。 し た が っ て ソフ ト も で き な 
い 。 ソ フト が で き な け れ ば 、 お 人 金 が 入ら な い 
給料 が で な い 。 誰か 、 あ の 電線 キリ オジ サン 
を 退治 し て くれ 一 い 。( グ ラフ ィ ッ ク RAM 要 ) 


コン ピュ ー タ が 胴 元 で す 。 人 数 は 、 1 人 か ら 
3 人 ま て 遊ぶ こと が で きま す 。 親 の 九 ビ ン 、 
子 の 四 ビ ン 、 嵐 (アラ シ ) の 役 も あり ます 

さて 、 あ な た の カン の サエ は いか が か な ? 

(グラ フィ ッ ク RHAM 不 要 ) 


あな た を ウイ ンプ ブル ドン の セン ター テニ スコ 
ー ト で プレ ー し て いる よう な 気分 に させ で < 
れる 立体 テニ スゲ ー ム で す 。 観客 も 出演 し て 
いて 、 カカ ラー グラ フィ ッ ク の 美しい ゲー ム で 
す 。( グ ラフ ィ ッ ク RAM 有 要 ) 


発電 所 建設 シミ ュ レ ーション だ 。 原 子 力 発電 

を 建て る に は 、 土 地 を 買収 、 住 民 の 反対 を 
お し きっ て 操業 し な けれ ば な ら な い 。 公害 を 
出せ ば 賠償 人 金 を 支払 い 、 さ ら に は 電気 料金 収 
入 も 減っ て し まう 。 さ あ 、 君 は 広がる 放射 能 
を 防ぎ な が ら 、 こ の プラ ント を どれ だ け 長 時 
間 続 けら れる か ? (グラ フィ ッ ク RAM 要 ) 


従来 の 麻 人 徒 ゲー ム よ り 、 も っ と 本 物 に 近付い 
た 。 相手 3 人 分 を コン ピュ ー タ が 受け 持ち 、 
ボン 、 チ ー、 カ ン も 自分 は も ちろ ん 相手 も し 
て くる 。 こ の グラ フィ ッ ク 四 人 麻雀 は グラ フ 
ィ ッ ク RAM な し で も 動く 。 そ の 秘密 は X | 
の ユー ザー 指定 キャ ラク タ ゼ ネ レ ー タ ー を 利 
用 し て いる か ら だ 。 ス ピー ド も 速く な っ た 


プレ ー ヤ ー の 3 次 元 感覚 を や し な う 、 宇宙 空 
間 オ リエ ン テ ー リ ング 、 頭 脳 派 シ ミュ レー シ 
ョ ン で ある 。 ま わり の 星 の 配 列 と 進路 を 示す 
3 次 元 ベ クト ル の コン パス を た より に 、4 つ 
の チェ ッ ク ポ イン ト と な る 星 を 頼り に し な が ら 、 
最後 に ゴー ル す る タイ ム ト ラ イア ル だ 。( グ ラ 
74 > 2RAM&) 


それ ぞ れ 特色 の ある 5 人 の オセ ロ 仲 間 が 登場 
し ます 。 あ な た は 対戦 相手 を 自由 に 選択 で き 
まず 。 ま た 、、 AUTO に し て コン ビュ ュー を タ を 対 コ 
ンピュータ で 自動 的 に 対戦 させ る こと も 可能 
+, 初心 者 か ら 得 意 な 方 まで 、 ご 家族 皆様 
で お 楽し みい た だ け ま す 。 あ な た が 勝て ば 音 
楽 が 奏で られ ます 。( グ ラフ ィ ッ ク RAM 不 要 ) 
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四 人 ホー カー 


ベー シッ ツク ジス テム 
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Рб 

ZAP ルアー ミー 

Y 2,800 
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\4 500 


マイ コジ ンジ セ ジ タ ー JIZ 
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マイ コン セン ター ウエ ノ 


北 岬 沖 海戦 
¥ 4,500 
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X | 対 あ な た の 小倉 百人 一 首 競 技 で す 。 パ ソン 
コン て 遊び な が ら 百 人 一 首 を マス ター すれ ば 
ー 生 の 得 。 初心者 か ら 名 人 まで 200 階級 の ク 
ラス 別に な っ て いる の で 、 誰 で も 楽し め ま す 
上 級 ク ラス は 上 の 句 だ け 、 中 級 以下 は 下の句 
で も 0K。 中 間 結 果報 告 で 最終 結果 を 予想 
当たる か どう か ? (グラ フィ ッ ク RAM 不 要 ) 


コン ピュ ー タ の タケ チャ ン 、 セ イコ 、 キ ンチ 
ャ ン の 3 人 と あな た の 4 人 で プレ イ 。 コンビ 
ュー タ の 3 人 は 、 ケ ー ス ・ バ イ ・ ケ ー ス て 顔 
の 表情 が 変化 し ます が 、 ポ ー カ ー フ ェ ー ス に 
ご 用 心 / 本 格 的 ポー カー の 醍醐 味 が 存 分 に 
楽し め る 痛快 ソフ ト で す 。 親 切な 説明 書付 き 
AUTO 機 能 付 き 。 (グラフィック RAM 不 要 ) 


パソ コン が 問題 を 作る の で 、 い つも 新鮮 で 楽 
し い 詰 将棋 が 楽し め ま す 。 問題 が な く な る 心 
配 も あり ませ ん 。 実戦 その まま の 詰将棋 で 、 
将棋 を 知ら な い 方 で も 駒の 動き 方 を 知れ ば 、 
いつ の 間 に か 将棋 が 覚え られ ます 。 | 人 て 楽 
し む も 良 し 、 時 に は お 友達 と 一 緒 に や る の も 
楽し いも の で す 。( グ ラフ ィ ッ ク RAM 不 要 ) 


あな た と 3 台 の コン ピュ ー タ と の 対戦 で す 

まず 5 枚 の カー ド が 4 人 に 配ら れ 、 先 頭 の 人 
か ら カ ー ド を 交換 。 交 換 が 終っ た ら 点 を か け 
て くだ さい 。 か け ひ き は 巧 妙 で す 。 ド ロッ プ 
し た ら コ ジン ピュ ー タ だ どう 9 し で が 一 導 を 進め ま 
す 。 あ な た は 勝つ まで に どれ だ け ゲ ー ム を 楽 
し め る か な ? (グラ フィ ッ ク RAM 要 ) 


時 は 流れ 、 人 間 と コン ピュ ー タ と の 権利 平等 
の 時 代 か ら コン ピュ ー タ 絶対 王制 の 時 代 へ と 
移り つつ ある 。 我々 は 人 類 の 権利 を 死守 すべ 
5, ЖІСВАТТІЕ ARMY 軍 の 全 指 揮 権 を 委 
ね た 。 君 の 任務 は 全 軍 を 幸い 、 敵 総司 令 部 を 
占領 する こと に ある 。 現代 版 軍人 将棋 の 決定 
Mi. (7374 у 7 RAME) 


初心 者 向け の シミ ュ レ ーション ウォ ー ゲ ー ム 
で す 。 第 2 次 大 戦中 の 大 西洋 を 舞台 に し た U 
ボー ト の 戦い を テー マ と し た も の 。 対戦 艦 、 
対 輸 送 船 、 対 駆逐 艦 戦 が 楽し め ま す 。 あ な た 
は それ ら を 撃沈 し て 勝利 を お さめ る こと が で 
きる だ ろう か ?7( グ ラフ ィ ッ ク RAM 妥 ) 


1942 年 12 月 3| 日 の 夜 、 ナ チ ス ドイ ツ は レー ゲ 
ン ボ ー ゲ ン 作 戦 を 発動 し た 。 こ れ は イギリス 
の ソ連 向け 船団 に 対す る 攻撃 計画 で あっ た 

あな た は 圧倒 的 な ドイ ツ 艦 隊 を 敵 に まわ し 、 
イギリス 護衛 艦 を 指揮 する 。 速 力 の 遅い 船団 
を まもり 、 無 事 、 船 団 と と も に 目的 地 に 着く 
こと が で きる か 7?7( グ ラフ ィ ッ ク RHAM 妥 ) 


1943 年 12 月 26 日 、 北 極 海 で は 巡 洋 戦艦 シャ ル 
ン ホ ルス ト が 、 和 酔 勢 な イギリス 艦隊 と 10 時 間 
に お よぶ 戦闘 を 交え た 。 し か し 、 あ な た な ら 、 
イギリス 艦隊 の 追跡 を ふり きり 、 敵 輸送 船団 
を 撃破 し て 無事 に 帰還 する 事 が で きる か も し 
れ な い 。 こ の 作戦 に 勝利 する 道 は 、 は た し て 
な い の か ? (グラ フィ ッ ク RAM 有 要 ) 
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ラジ オ 技 術 社 


ノル ウェ ー の ナル ヒビ ク を 占領 する ドイ ツ 駆 逐 
艦隊 に 対し 、 イ ギリ ス 軍 は 4 月 10 日 、I3 日 と 
2 度 に わた る 攻撃 を か け て きた 。 BUEBE SE 
退 し 、 あ な た は ナル ビク を 占領 し 続け る こと 
が で きる だ ろう か ? この ゲー ム は 中 級 程度 
の シミ ュ レ ーション ゲー ム 。 (グラ フィ ッ ク 
RAME) 


太平 洋 戦 争 中 の ソロ モン 海域 に お ける 夜戦 を 
シミ ュ レ ー ト する 上 級 向け ゲー ム で す 。 あ な 
た は 、5 つ の シナ リオ を 選ぶ こと が 可能 で す 
そし て 、 そ れ ぞ れ の 海戦 を シミ ュ レ ー ト し て 
いき ます 。 あ な た な ら 、 こ の 海戦 に 勝利 を お 
さめ る こと が で きる だ ろう か ? (グラ フィ ッ 
ZRAM£) 


この プロ グラ ム は 、 別 売 の “私 の 勉強 ノー ト ” 
と いう 書籍 の サン プル プロ グラ ム 。 内 容 は 、 
憲法 に つい て 質問 が で て くる 「 日 本 国 憲法 」、 
世界 72 ヵ 国 の 国旗 、 首 都 、 人 口 、G P P な ど 
が 一 目 で わか る 「 世 界 の 国々 」 や コン ビュー 
タ に 音楽 を 演奏 させ る 「 ミ ュー ジッ ク ・ プ ロ 
グラ ム 」 な ど 。 (グラフィック RAM 要 ) 


複数 形 、3 人 称 単 数 、 過 去 形 、 過 去 完了 形 、 
現在 完了 形 な ど 、 各 学科 で 修得 すべ き 英 文法 
を すべ て 収録 。 文部省 の 指導 要領 に 準 処し た 
教育 用 ソフ ト の 決定 版 。 学 校 や 学習 塾 で も 使 
用 で きる 。 楽し く 学 べ る よう に 、 ゲ ー ム 形式 
を 採用 し て いる 。( グ ラフ ィ ッ ク RAM 不 要 ) 


今 ま で の パソ コン プラ ネタ リウ ム と は ひと 味 
違い 、 本 物 の プラ ネタ リウ ム と 変わ ら な い ほ 
どの 機能 を 持ち あわ せ て いる 。X | の グラ フ 
ィ ッ ク を フル に 活用 し 、 四 季 の 星座 や 夕焼け 、 
満ち 欠け する 月 、 変 わり ゆく 惑星 の 位置 、 星 
雲 星団 な ども 出演 し て 、 本 物 に 近い 星空 を 写 
し 出す 。 (グラ フィ ッ ク RAM 要 ) 


あな た は 、 競 馬 で 損し て いま せん か ? この 
フロ グラ ム は 、 本 命 と 中 穴 (配当 が 3000 円 一 
1000 円 未満 ) に 的 を し ぼり 、 偏 差 の バラ ツキ 
を 分 析 し た パル コム 開発 の 本 命 率 関数 に よっ 
て 勝馬 を 選出 する も の 。 的 中 率 が 60 一 702% で 、 
X | 以外 の 機種 で も 大 人 気 で す 。( グ ラフ ィ ッ 
ク RAM 不 要 ) 


< 商品 数 100> [プリ ンタ ー 出 力 〕 商品 元帳 、 
品名 一 覧 表 、 入 出庫 日 報 、 入 出庫 月 報 (M 
元帳 〕 商品 名 、 売 単価 、 月 初 在庫 数 、 本 日 
仕 入 数 、 当 月 仕 入 数 、 本 日 出庫 数 、 本 日 出庫 

当月 出庫 数 、 当 月 出庫 金額 、 仕 入 単価 
(グラ フィ ッ ク RAM 要 ) 


< 商品 数 100、 出 庫 数 50> 〔 プ リン ター 出力 〕 
商品 元帳 、 出 庫 先 元帳 、 商 品名 ・ 出 庫 先 一 覧 
表 〔 商 品 元帳 〕 商品 名 、 売 単価 、 月 初 在庫 数 、 
本 日 仕 入 数 、 当 月 仕 入 数 、 本 日 出庫 数 ・ 金 額 、 
当月 出庫 数 ・ 金 額 、 仕 入 単価 (НАЛ) 
出庫 先 名 、 住 所 、TEL、 本 日 入庫 ・ 出 庫 額 、 
本 日 仕上 額 な ど (グラ フィ ッ ク RAM 要 ) 
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< 商品 数 100、 仕 入 先 数 50>〉【 プ リン ター 出力 〕 

仕 入 先 元帳 、 商 品 元帳 、 商 品 別 仕 入 日 計 表 な 
と (EARTE) 仕 入 先 、 住 所 、TEL、 当 | 
月 売掛金 、 本 日 仕 入 額 ・ 支 払 額 、 当 月 仕 入 額 ・ 
支払 額 、 当 月 請求 額 な ど 【〔 商 品 元帳 〕 商品 名 、 
売 単価 、 月 初 在庫 数 、 本 日 ・ 当 月 仕 入 数 ・ 出 
庫 数 な ど (グラ フィ ッ ク RAM 有 要 ) 


実践 仕 入 管理 
Y 3,000 
近 織 コン ビュ ョ ュー タ サ ービス 


く 商 品数 100、 得 意 先 数 50>【 プ リン ター 出力 〕 


/ == کے‎ 商品 元帳 、 得 意 先 元帳 、 商 品名 ・ 得 意 先 一 覧 
実践 ./ 販 JU E FE 表 、 日 計 表 な ど (тала) 商品 名 、 売 単価 、 
Y 3,000 月 初 在庫 数 、 本 日 ・ 当 月 仕 入 数 、 本 日 ・ 当 月 


出庫 数 、 本 日 ・ 当 月 出庫 額 な ど ( 得 意 先 元帳 ] 
得意 先 名 、 住 所 、TEL、 当 月 売掛金 、 本 日 
売上 額 な ど (7274 v2RAME) 


近畿 コン ピュ ー タ サー ビス 


200 人 の 名 前 、 住 所 を 管理 し て 、 ハ ガキ や メ 
ー ル 用 シー ル の 宛名 書き が で きま す 。 デ ー タ 
は カセ ッ ト に 記録 する こと も で き 、 必 要 に 応 “| 
じ て 追 加 変 更 ち で きま す 。 使用 方 法 は 、 マ ニ | 
ュ ア ル が つい て いま す が 、 画 面 の メッ セー ジ | 
に 従え ば だ れ で も 簡単 に 使え ます 。( グ ラフ ィ 
ッ ク RAME) 


メー ル メ イト 
Y 3,000 


Xp DID a— ا ر‎ 2 


< 部 品数 200、 製 品数 8 、 一 製品 の 部 品数 45> | 
[プリ ンタ ー 出 力 〕 部 品 元 帳 ・ 展 開 表 、 共 通 
部 品 表 、 発 注 表 〔 部 品 元帳 〕 部 品名 、 品 番 、 
単価 (Шал) 製品 名 ・ 品 番 、 製 品 単 価 、 | 
図 番 、 コ ー ド 、 部 品名 ・ 品 番 、 使 用 数 、 単 価 、 | 
備考 欄 な ど に 活用 で きま す 。( グ ラフ ィ ッ ク R 
AM 要 ) 
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く 見 込 客 数 60 人 > 見 込 客 の 住所 、TEL、 品 
名 、 機 種 、D M 発 送 日 、 訪 問 日 、 見 込 度 、 成 | 
約 日 、 成 約 単価 、 数 量 ・ 金 額 を 管理 し 、D M 
発送 回 数 、 訪 問 回 数 、 見 込 度 な ど を 指定 する 
こと に よっ て 、 訪 問 し よう と する 見 込 客 に 対 


実戦 訪問 販売 
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近畿 コン ピュ ー タ サー ビス 


し て DM 用 シー ル の 宛名 書き や 訪問 先 名 な ど 


を 印刷 し ます 。( グ ラフ ィ ッ ク RAM 要 ) 
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実戦 ググ 株 価 分 析 


v c 


000 


近畿 コン ピュ ー タ サー ビス 


一 銘柄 単位 で 400 日 分 の 出来 高 、 株 価 を 管理 


し 、 星 足 、 移 動 平均 や 送 ウ ォ ッ チ 曲 線 に よる 


分 析 が で きま す 。 特 に 、 一 画面 に 移動 平均 線 、 


出来 高 、 星 足 を 左 画面 に 、 送 ウォ ッ チ 曲線 を 
右側 に 表示 し 、 比 較 が 容易 に で きる よう に エ 


夫 。 デ ー タ テー ブ を 何 本 も 用 意 す れ ば 何 銘柄 


で も 可能 で す 。( グ ラフ ィ ッ ク RAM 有 要 ) 


実戦 QC 管理 (1 ) 
Y 5,000 


EA E 


品質 管理 に 欠く こと の で き な し い 特 性 要因 図 や 


パレ ー ト 図 が 、 デ ー タ を 入力 する だ け て 簡単 


に 作成 で きま す 


画面 に 表示 され た 要因 図 や 


パレ ー ト 図 は 、 パー ドコ ピー で プリッ ター に 
よっ て 出力 され ます 。「 実 戦 々 Q C 管理 」 シ リ 
ー ズ は この ほか に 、(2) か ら (9) ま で あり ます 
(グラ フィ ッ ク RAM 有 要 ) 


< テー プル 数 21、 メ ニュ ー 数 300、1 ヵ月 来客 


ー テ さく の キラ テー ロー き ビ ロー оо п e 
cN ЗЕ O — о >> № 
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NN 数 1 万 人 以下 、1 ヵ 月 オー ダー 数 1000 以 下 >〔 プ 
実戦 飲食 店 売上 分 析 リン ター 出力 〕) メニ ュー 価格 表 、 テ ー ブ ル 別 


Y 6,000 売上 分 析 表 な (AF. BEHAR) 売上 数 量 
em баран wee ue ИШ _ の 入力 だ け で テー ブル 別 ・ 商 品 別 の 売上 集計 
近畿 コン ピュ ー タ サー ビス を 行い 、 売 上 比率 、 テ ー ブ ル 回 転 率 な どの 分 


"ラコ の 9 イレ テ 27774 


析 が 可能 。( グ ラフ ィ ッ ク RAM 要 ) 


由 人 7 項目 の タイ トル を 設定 、 各 項目 20 文 
FT и адс 件 の デー タ 和 処理 が 
78 た 7 項目 に わた る すべ て の 複合 条件 
の サー チ が 簡単 に で きる ほか 、 
使え ば リス ト や メー ル タ ッ ク 
時 な ど 、 応 用 範囲 の 広い デー タ ベ ー 
スム で す 。 (グラフィック RAM 要 


タイ リン グ ベ イン ト を 手軽 に 活用 する 
ティ で す 。 後 妙 な 中 間 色 や 
ン 模 様 が 自由 に 作れ ます 。 作 成 し た 色 
や パタ ー ン を 、1|6 進 デー タ の 形 で 表示 させ る 
こと が で きま すか と ブロ グラ ム 開 発 に 充分 
x まう グラ フィ 2 RAME) 


| 
4 


X | の PCG を 手軽 に 利用 する た め の ユ ー テ 
イナ ー ィ リ ティ 。 ド ッ ト 毎 に 色 指 定 を し て 、 最 大 256 
、X256 ド ッ ト の レイ アウ ト が 自由 に 行え ます 
作成 し た キャ ラク タ は 、 実際 の プロ グラ ミン 
グ に 必要 な |I6 進 デー タ の 形 で セー プ し た り 、 
他 の フロ グラ ム ヘ へ マー ジ し た り で きま す 


スト ラッ ト フ ォ ー ド 2974 v RANE) 


ク RA 


家庭 用 V T R の 利用 に より 、C RT 画面 上 に 

--- .: 簡単 に 絵 を 作成 する こと が で きる グラ フィ ッ 

77 ベン ジル ディ タ 。 ラ イシ ・ エ ディ タ 。 ペイ シタ 

クチ ャ ー・ ア ル バ ム な どか ら 構 成 さ れ 、 

人 間 が 紙 に 描く の と 同じ 要領 で 作画 、 保 存 が 

で き 、 ア ニメーション や 特撮 等 、 幅 広い 応用 
が 考え られ る (グラ フィ ッ ク RAM 有 要 ) 
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と 同じ よう に 太 筆 を 使っ て 大 

、 細 筆 で ゆっ くり 仕上 げ ら れ ま す 
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アノ ソシエ イツ 満載 、( グ ラフ ィ ッ ク RAM ) 
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(地域 別 、 ア イ ウ エ オ 順 で す ) 


地域 | 会 # % | кон 
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株 計測 技研 T320 栃木 県 宇 1 
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63:112308]07-7328V KB C? 


18 28 

2а в.в. Š | HHan だ の つて fE Th UC ZET-Sgus"acsgismLimmed 
зи | 

48 PALETO, 0:PALET1, 1 :]PALET2, 2:PALET3, 3:PALET4, 4:PALETS, S:PALETé, 5:РА ЕТТ, 7 
58 WIDTH88:COLOR7,0 | 

өй р A-Z | 

70 CLS4 } 

ай т=з NN 9) - (639, 199), «2€ 1, 0) - (579, 1295 1608UB140 ] 

Әй AINDOWI8, 0) - (639, 199), (-50, 8) - (589, 179) :50508149 di. OE ca ueque d 1I а 

108 WINDOMNCO, A) - (639, 199), (-390, 0) - (450, 199) :60SUB 140 

139 END < 一 お ゆり 

148 RESTORE348 を ラプ ン テ ー タ を 0A 08, E739 РЈ VAT 18FK CIC CT 

150 READ X, Т2:Т=Т2:1Е T2520 THEN Т=7 ао лт 3 

1 る 9 CLS:J=0 2502 Сш u^ 

178 J=J+1 

88 READ V.H 

198 J=J+i 

206 READ V1,W1:IF U=-2 OR Ui=-2 THEN 28-2:5070210 ELSE IF り 1=-1 THEN GOTO178 ELS 


Е LINE CV, i) = (Vi, W12, PSET, T:U=U1:l4=H1:GOTO 190 

2:8 ЗЕЅТСРЕ 1040: РЕА” ХӨ, ҮЙ, 20:ҒОВ Ісі TO 20:РАФ=" " 

220 РЕАОХ, Y, ZIFOR Ј=1 TO S 

230 РАФ=РАФ+МІОФ (СОРАТФ (2), 7+8, 1» +MID$ ‹СБРАТ$ (Z); J+16, 1) *MID$4CGPATS$ (Z), Ј +24, 1) 
248 NEXT 

250 PAINT (X, Y), РАЗ, Ts NEXT 

260 IF T2=0 THEN RESTORE 370:T=0 ELSE RETURN 
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оч 


READ UVi,.l1:iF \М=-2 OR /1--2 THEN ZO=Z:RETURN ELSE IF \1=-1 THEN 6010280 ELSE 
INE (V, W) = (Vi, М1), PSET, TiV=V1:WH=N1:GOTO 388 


DEF CHR$( 65 ) =HEXCHRS ("SSAASSAASSAASSAAAASSAASSAASSAASSFEFFFFFFFFFFFFFFF ") 
DEF CHR$( 65 > =HEXCHR¥ ("FFFFFFFFFFFFFFFFAASSAASSAASSAASSFFFFFFFFFFFFFFFF") | 
RETURN 

DATA-1, 9 > COTNSFSÉBIO ツチ ャ ー ア C7 生 っ > た デー ダ で ヲ 

DATA320, 37, 335, 38, 358, 37, 356, 37,368, 38, , 382 ‚48, 385, 42, 382, 44, 374, 47, 3461, 4? 
DATA369, 51, 367, 56, 369, 58, 368, 64, 357, 72, 369, 79, 373, 85, 375, 89, 371, ?1, 369, 93 
DATA264, 94, 361,94, 356, ?3, 347,92, 345, 92, 343, 92, 336, 83, 326, 59, - 1, 0 

DATA343, 92, 345, 97, 346, 101, 345, 164,243, 105, 328, 103, 329, 106, 315, 106,318, 105, 30 
84 

САТА294, 183, 281, 104, 277, 101, 281, 190, 282, 98,273, ?6, 272, 89, 277, ?0, 269,88, 271,8 
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РАТА277, 83, 269, 82, 267, 79,268, 77, 279, 77, 267, 76, 266, 73, 267. 71, 280, 70, 271, 6? 
DATA247, 66, 271, 54,279, 65,271, 62, 270, 60, 276,57, 283, 62, 276, 56, 280, 52, 289, 55 

9 DATA282, 51, 288, 48, 295, 45, 302, 43, 307, 42, 320, 39, -1, ð 

458 Vj dad 43,185, 349, 107, 351, 107, 346, 111,341, 114, 338, 118, 339, 123, 341, 128, 344, 131, 
348,1 

469 ТАЗ ла аз а 152, 355, 152 asa Са 

478 DATA235, 168,284, 166,281, 153, 279, 159,278, 154,279, 128, 282, 143, 285, 137, 270, 138, 
дез 3, 125 

4880 DATA2?7, 121,298, 118, 297, 115, 295,111, 291, 109,289, 197, 289, 105,294, 103, - 1, 0 
498 ОАТАЗ54, 150, 359, 160,372 ied 381, 162, 387, 163, 393, 164, 396, 165, 399, 146. 499, 158, 
500 DATA3908,172,382, 174, 372, 175, 361, 176, 347, 177, 331, 177, 316, 177, 292, 176, 274, 175, 
260,174 

518 DATA253,173,247,172,244,171,242,170,242, 169, 243, 168,250, 166, 263, 153, 281. 152. 
-1.8 

520 DATA242,170,239,175,241, 177, 244, 178, 252, 180, 263, 182, 287, 183, 317, 184, 347, 184, 
367,183 

538 DATA384, 181,397, 179, 402, 177,405, 176, 400, 168, -1, 0 

548 DATA360,47,375,42,-1,8 
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DEF CHR$( 38 ) -HEXCHR$ て"FFFFFFFFFEF FFPFFFFFFFRFFFFFFFFFWFFFFFEFEFRFFFEFFFF*) | жаб 
ое 
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550 DATA2356,446,370,41, -1, Ü 

540 DATA351,45;, 263, 41, -1, Ë 

570 DATA338, 45, 331, 45, 320, 46, 307, 48, 300, 50, 294, 52, 289, 55, 285, 58, 283, 62, 282, 64 
580 DATA-1, 8 

590 ратазз5, 44, 342,41, ー1。9 

588 РАТАЗ27, 44, 332, 42, 343, 40, 351,39, -1, 8 

618 РАТАЗ!2, 45,325, 42, -1, 0 

$28 ОАТА275, 47, 301, 47,387, 44,318, 42, -1, ü] 

өза батаг80, 78, 279, 72,279, 74,288, 79, -1, 8 

540 РАТА274, 75,274, 73, -1, Ü 

650 DATA277, 85, 277,88, 278,88, 279,85, -1, 9 

668 DATAZ78, 91, 279,93, -1, 8 

ёта ОАТА278, 95, 281,96, -1, 8 

$30 РАТА2$8, 55, 293,66, 291, 66,288, 59,288, 65, 299, 50, 297,565, -1, ð 
é98 DAT6e287, 72,28%, 33, -1, 8 

788 РАТА283, 86, 289,93, 2980, 95, -1, 0 

718 РАТЯАЗВ1, 103, -1, 8 

726 РАТАЗВ1, 103, 299, 98, 387, 97, 307,95, 305,88, -1 0 

738 РАТАЗВТ, 95, 311,93, 309,87, -1, 0 

740 батазй6, 103, 305, 191,384, 98, -1, ü 

7560 DATA315, 57, 321, 65,324, 68, -1, ð 

758 DATAS10, 52,312, 64, -1, 8 

тта РАТАЗ22, 56, 325, 68, 327,65, -1,0 

7868 DATA349?, 55, 355, 57, -1, 8 

790 0518358, 59, -1,0 

888 DATA357, 68, 358, 59, -1, 8 

816 ОАТАЗ4$, 65,357, Fi, -1,@ 

856 DATA34ő, 76, 353, 74,359, 78, 355, 75, -1; Ë 

838 DATAZ4ő, 57,349, 59, 34$, 55, 347,59, -1, 8 

540 DATA336, 69, 337, 71, 344, 75, 347,80, -1, Š 

85й DATA343, 80, 341, 77, 338, 74, 236, 71, -1, 8 

850 DATA344.84,345,387, 343,92, -1, 0 

878 ВАТАЗ52, 85, 351, 88, 353,90, 354, 88, 352,85, - 1, 8 

сай РАТАЗс8, 84, 351,87, 359, 98, 364, 92, 362, 89, 365, 87, 360,84, - 1, 8 
£96 DATA338, 106, 340, 107,338, 118, -1, 8 

saa ратазгФ, 107, 329,118, 327, 113, 321, 115, - 1, 8 

918 DATA317, 119,312, 122, 306, 126,296, 132, 308, 127, 314, 123, 317, 119, -1, 8 
920 РАТАЗ!8, 187,313, 113, 304, 117, 302, 113, 318, 107, -1, 8 

938 09472308, 107,305, 118, -1, 8 

$48 РАТАЗО1, 105,301, 110, 299, 109, 299, 166, 297, 105, 297, 108, -1, й 
958 ОАТАЗ28, 118,326, 123, 318, 127, 314, 132,385, 136,296, 141, 287, 144, 286, 146, 295, 139, 
381,135 

94й DATA308, 131,318, 127, -1, 8 

97а ратаззт, 125,334, 12, -1, ü 

9860 DAT6e230, 133,319, 139,310, 145, 300, 158, 295, 155, 288, 161, 272, 155, 297, 158, 305, 145, 
312,139 

990 DATAS25,132,-1,0 

1460 DATA333。 140, 328, 144, 322, 147, 317, 151,310, 157, 306, 151, -1, 8 
1010 РАТАЗЗ1, 14$, 329, 156, 323, 160, 324, 154, 331, 147, - 1, 6 

1920 DATA341, 154, 338, 158,333, 151,329, 145, -1,0 

i838 DATA-2, G 

1848 DATA-3, Û, 5,310, 75, 38,270, 73, 38, 283, 55, 38, 310,118, 66, 311. 180, 55 
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18 60508328 

26 SCREEN9, 0,0 

38 PRAE DAE 

59 HIDTH80:COLOR7, à 

72 CLS4 

75 WINDON(@, 9) - (639, 199), (8, B) - (639, 199) :GOSUB 2010 

88 WINDON(CO, 8)- (639, 199), (355, 0) - (519, 99) :GOSUB 146 

85 WINOON(@, 0) - (439, 199), (200, 0) - (519, 199) :GOSUB14€ 

98 МІМООЫ(й, 0) - (639, 199), (-119, 00 - (519,398) 1GOSUB 140 BOUT ХС 
180 МІМООЫ(0, û) - (639, 199), (-757, 0) - 519, 796) 1GOSUB 140 
118 HINDOW(0, 0? - (639, 199), (-2033, û) - (519, 1592) 1GOSUB 140 
128 END 

148 RESTORE366 ——» 225 8JL—3- 


se кенен ior itt ett t ме o t енеді 


ee 


158 READ X,T2:T=T2:IF T2=0 THEN Т=7 
159 CLS:J=a 

170 ゴ =J+1 

188 READ 9,Ы 描画 ルー チン 

198 J=J+1 

208 READ Ui,H1:IF V=-2 DR Ul=-2 THEN Z8-Z:GO0TO218|ELSE IF \/1=-1 THEN 6070170 ELS 
E LINE (U, HY - (U1, Wi), PSET, T:U=U1:N=W1:60T9 198 

218 RETURN 

S20 DEF СНЯ$ (| 38 »?-HEXCHR$("FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF") 
336 DEF СНЕФ‹| 65 )sHEXCHRS$(('"55Aà6556a55Aa55aaae4eo5saassaa5saa55FFFFFFFFFFFFFFFF ") 
340 DEF CHR ま (| 65 ) =HEXCHRSC"FFFFFFFFFFFFFFFFAASSAASSAASSAASSFFFFFFFFFFFFFFFF"》 
350 RETURN ЖЖ. ICE SOTCUIBUAOC. チェス 7 を コー し た ので 78899501089 

368 рата-1,0 — » 22205 7 の 3O き で : 駒 の データ で す 

378 DATA320, 37, 336, 38, 350, 37, 356, 37, 348, 28, 282, 40, 384, 42, 382, 44, 374, 47, 361, 4? 
388 DATA3éÛ, Si, 367, 56, 369,56, 368,64, 367, 72, 369, 72, 272, 85, 275, 89,371, 91, 369, 93 
398 DaàTAó366,94,941,94,355,93, 247, 92, 345, 92, 342, ?2, 324, 83, 2246, 49, -1, 0 

488 DAT6343,92, 345,97, 346, 181, 345, 104, 343, 105, 326, 102, 229, 106, 315, 166, 318, 105, 30 
7,104 

418 DATA294, 103, 281, 184,277, 181,281, 100, 282, 98,272, 94,272, 8?, 277, 93, 249, 88, 271, 8 
420 DATA277, 83, 269, 82, 267, 79,268, 77, 279, 77, 267, 76, 246, 783, 267, 71, 980, 70, 27 1, 6? 
420 РАТАЗЕТ, 64,271, 64, 279, 65,271, 62, 270, 60, 276, 57, 283, 62, 276, 54, 288, 52, 229, 55 
448 БАТА232, 51,288, 48, 296,45, 302, 42, 397, 42, 322, 22, -1, 8 

450 DAT6343,195,249,107,351,189,345, 111, 341, 11:146, 338, 112, 339, 123, 341, 128,354, 131, 
248, 135 

466 DATA251, 141,354, 146, 355, 1 
478 DATA286, 168, 284, 166, 2S1, 1 
293,125 


52,355, 157, 254, 168, 353, 165, 350, 168, -1, 9 
63,279, 157,278, 154,279, 149, 282; 143; 285, 137, 270, 13€, 


488 САТА297, 121,298, 115,297, 115,275, 111, 291, 109,289, 187; 28?, 195,294, 193, -1,9 
498 РАТАЗ54, 160, 359, 168,372, 151, 381, 122, 387, 163, 273, 154,395, 165, 399, 145,409, 168, 
396, 170 

5еа: DATAZ? O, 172, 382, 174, 372, 175, 351, TE, 347, 177,331, 177, 316, 177, 292, 176, 274, 175, 
266,174 


5180 DATA253, 173, 227, 172,244, 171,242, 170, 252, 169,245, 158,254, 155,263, 122, 281; 152, 
1318 

528 DATA242, 170,239, 175,241, 277,244, 178,252, 182,262, 182, 297, 183, 21?; 254, 257, 134, 
367,183 

538 ОАТАЗ84. 181, 397, 177, 402, 177,405, 176, 480, 168, -1,0 

548 ОатёазЗёб, 47, 375,42, -1,0 

556 DATA254,456, 378, 41, =i, Š 

568 ОётАЗ5 і, 45, 2623, 41, -1, Š 

S78 DAT6328y45, 321, 45, 329, 44, 327,48, 300, Sa, 2924, 52, つら ?, 55,285, SB, 223, &2, 282, 54 
588 РАТА-1, 6. 

590 DATA225, 44, 342,41, -1,8 

688 DAàTA327,.44,332,42,3432,40. 221, 37, -1,0 

818 DATÓAÓ312,46,326,42,-:.€ 

ө2а DATAa2?25,49,2801,47,3607,424,53158,5452, -1, Ë 

ӛзге DATA280,70,279,72,279,72,2808,79,-1,£7 

649 DATA274,75,2743,73,-1.0 

る 59 DATA277; SS, 277, 889, 278, 92, 277, 35; -1,4 

668 DATA27S の 1 279,93, -1, 0 

678 DATAZ7S, ?5, 281,965, -), É 

688 DATA27?8, 55, 293, 40, 291, 65, 225, 69,288, 65,237, 40, 227, 55$, - 1.9 

698 DAT6287, 72, 285,83, -1, 3 

700 DATA2898,846,22%?,?2, 290, 25, -1, 9 

710 DATAZ081, 102, -1, Ë 

728 DATA3681, 103, 29$, 98, 397, $7, 207,95, 99%, 89, - 1, Ü 
730 DATA367 75, S11 73, 36$, 27, -1, Ë 

748 РАТАЗВЕ, 102, 2995, 101, 364, ?Š, -1, 8 

758 DATA315, 57,321, oS, 324, 42, -1, 6 

768 DATASI, 42,313, ód, -1, 8 

778 DATA222, Sé, 325,68, 327,655, -1,6 

788 батаз49”,55,355,57,-1,0 

770 ратаз58,59,-1,й0 

808 РАТА25$, 60, 358,59, -1, @ 

816 САТАЗ49, $5, 357,71, -i, Ë 

820 бАТАЗа6, 70,353. 74, 359, 72, 355, 75, - 1, € 

938 батаз45, 57, 349, 55, 247,53, 347,5?, -1, й 

840 ОАТАЗЗВ, 49, 337, 71, 344, 75, 347,30, -1,0 

858 DAT6243,86, 341, 77,338, 74, 332,71, -1, 7 

85а DATA2446, 24, 245,87, 343,72, -1,9 
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829 pe иа 55, 351, за, 353, 78, 354, зв, 352, 85, ет а 
ITA360, 84, 361, 87, 359, $9, 264, 723, 362,39, 365, 97, 360, 34, -1,0 

870 DAT: 38, 105, 340, 187, 338, 118, -1,6 
p pee n 107,329, 110,327, 1 13, 321, 115, -1,0 
918 ратаз17, % 19, 312, 122,306, 126, 296, 132,308, 127,314, 123, 517, 119, -1, 8 
өге DATA318, 107,313, 118,304, 117, 309, 113, 218, 107, -1, Ë 
930 ратазез, 187, 386, 110,-1,0 
940 ОАТАЗ01,104,301,110,299, 109,299, 104,297, 105,297. 102, - 1, 0 
は е 118,326, 123,318, 127,314, 132,395, 136,294, 141,287, 144,286, 146,295, 139, 
3801, 
948 DATA308, 131,318, 127, -1, 0 
эта ратаззт, 125, 334, 129, -1,8 
980 т? ено 139, 316, 145, 380, 158, 295, 1504 228, 161,292, 155,297, 158,385, 145, 


1038 г 
2016 она mm i | | | 
2048 XA=.5:YA=,6:ZA=D > ZDS RAITER 7075409 
2060 FOR X=R TO -R STEP-15 
2078 FOR ТН=8 TO 2xPI STEP PI/24 
288b Y=SQR CRKR-XKX) XS IN CTH) 
2892 Z=SGR ‹(нжк-уоюо XCOS (ТН) 


2188 605083898 
тг ПЕПЕ, Тен б=0:90702:26 
2128 6051 


2136 po > 
2140 = に м.” 
Mie o 


-21Se т 
2178 RETURN О 


ELLE Xi=X | 
YisYKCOS (XA) -ZKS INXA) 


838 21-Үж5 2жс08 (XA) 
ве == 


3060 Z2-XixSIN(CYAD +Z1XCOS (YA) 
om ; a 


| Wide. ажүз 
ПЕ GX«0 OR GX2é39 THEN в=е:вотозгев 
8 IF SY. (OR BY 499 THEN 6-6:20705250 


| БІН IF Өзі THEN 3246 


3250 LIN (BX, GY? - (6X, GY) , PSET С 
3260 I - (GX, GY) , РЗЕТ, С 
< "E "d PET 4 к, 


50 CLS4 

-60 WINDOW Moose d j9, 199), (8, 6) - (639, 199) :LC=1:G0SU8 1392 
_ 78 MINDOI D 9,199), (0, й) - (639, 1997 1GOSUB1258 

88 WINDOW(, 0) - (639, 199), (-899, -200) - (1437, 297) 180SUE 930 | 

96 WINDS s 199), (-999, -49) - (14391559)3LC=ai60SUB1398 [908 0Я 9 
_ 1096 нтмооинса, И. 199), {-808, -40) - (1437, 559) t GOSUB130 

1 f - (439, 199), (0, B) - (439, 199) _ 


° (se 
140 READ rr IF T2=9 THEN T=7 | 堪 画 ルー チン 
150 CLS:J-8 | 


n 43 
А Г РЕА л 
— ae 3 


200 RETURN 


293,125 


418 DATA242， 178, 239, 175, 241, 177,244, 178, 252, 180, 263, 182, 297, 133,319, 184, 347, 184, 


440 DATA256,46,370,41,-1, 8 


578 ратаг?а, 55,292,40,29: 1,645,285, 55,2858, 55,2355, 50,297,56,-1.0 


699 OATAÓ381,183, -1,0 


658 DATAÀ318,62,313,64, -1.0 


168 J=J+1 

179 READ UW, bl b 

189 J=J+1 描画 ルー チン 

190 READ 91,М1:1Ғ V=-2 OR り 1=-2 THEN 20-2:00702980 ELSE| IF Vi=-1 THEN 5070162 ELS 
E LINE (V, WD = (U1, H1), PSET, TiV=V1:N=R1 GOTO 188 


228 DERE CHR$( 55 ) =HEXCHR 志 "55AASSAASSAASSAAA FFFFFFFFFFFFFF') 
esa DEF CHR$( 64 > -HEXCHR$("FFFFFFFFFFFFFFFF« 3S AAS55AA55AASSFFFFFFFFFF РЕРЕРЕЕ*) 
248 RETURN ` ; 

250 рата-1, 02 ご この ら 9 の 2 の きぐ , 一 の テー タツ で す 。 ナ チェス 7 と 同 ぴ テー タ を 7 姉 っ て し きす 

ら る 9 DATA220, 3 ヶ , 336, 38, 358, 37, 356, 37, 358, 38, 382,48, 286, 42, 382, 44,374, ал, 361,49 

278 РАТАЗ60, 51, 367,546, 369,58, 368, 64, 367, 72, 369, 77, 373, 85, 375, P E RUE 21 11359, 3 
280 DATA366, 74, 361,94, 356, 93, 347, 92,345,92, 343,92, 336, 83, 326, 69, -1, 0 

rr aos > 92,34 345, 97, 346, 181, 345, 184,343, 185, 328, 193, : 329, 196,315, 106,318, 185,28 
7,1 

2 DATA294, 103, 281, 184, 277, 101, 281, 190, 282, ?8, 273, 76, 272, 89, 277,90, 259, 88, 271, 3 


218 DEF CHR$( 38 осн cnrrerrerrbrererrerebererereerbeerrrerrl m) 82 


p DATA277, 83, 26?, 82, 267, 79,258, 77, 279, 77, 267, 76, 266, 73, 267, 71, 280, 70, 271, 69 

зга DATAE67， 66,271, 64, 279,65,271,62,278,60,276,57, 283, 62, 276,56, 280, 52,289, 395,55 

3360 DATA282,S 1, 288,48, 296, 45, 303, 43, 307, 42, 320, 32, 71, 6 

P vo baee "185,349, 187,351, 162,346, 111,341, 114, 338, 118, 339, 123, 341, 128, 344, 131, 
$ > 

sse DAT ム 351 141。 354, 146,355, 152, 355, 157, 354, 180,353, 165,350, 168, -1, e 

360 DATA285, 168, 284, 166, 281, 153, 279, 159, 278, 154,279, 148, 282, 143, 285, 137,298, 130, 


370 DATAZ?T, 121,298, 118,297, 115,295, 111, 221, 109, 282, 187, 289, 105, 294, 183, - 1, 8 

258 Eo ecd 168,359,160,372, 161, 381, 152, 387, 122,393, 164, 396, 165, 399, 155,400, 158, 
42 

39а а 172, 382, 174, 372, 175,361, 176, 347, 177, 331, 177, 315, 177,292, 176, 274, 175, 

268, 

айй s 173, 247, 172,244, 171, 242, 178, 242, 159,243, 168,258, 166,253, 163,281, 162; 


100 


357,183 
420 DATA284, 181,377, 179,402, 177, 485, 175,400, 168, -1, 8 
436 DATASSB, 47, 375,42, -1,0 


456 2АТАЗ51, 45, 353,41, -1, 9 

468 DATAZ33, 45, 331,45, 320, 46, 307, 48, 388, 58, 294, 52,289, 55, 285, 58, 223, 62,282.44 
476 DATA-1, 0 

ава DATA333, 44, 342,41, -1,8 

490 РАТАЗ27, 44, 332, 42, 343, 40, 351,39, -1, 6 
508 DATA312 46,325, 42, -1,0 

518 DATA295, 4$, 391, 47, 307, 44, 318,42, 20 
52а DATA289， 79, 272, 72,279,74,288,79,-1, 8 
538 РАТА274, 75, 274, 73, -із8 

548 DATA277, 95, 277, 99, 278, 83, 279,85. -1, 0 
558 DATà278,91,279,93,-1,0 

560 DATA278, 95, 281,96, -1, 6 


580 DATA287, 72, 285, 83, -1, 8 
598 DATA288, 86, 289, 93, 299, 95, -1,9 


619 DAQTA36 1 183, 299,98, 307, 97, 387, 95, 305, 88, - 1, 2 
62@ DATéeS87, 25, 31:,93, 399,87, -1, 8 

630 DATA384, 183, 3985, 19:,304, 98, -1, 9 

648 DATAS 1S, 57, 321, &5, 324, 53, -1,8 


888 DATA322， 55, 325,68, 327,65, -1, 8 

670 DATaA349。 55, 355,57,-:, ë 

89 0АТАЗ58, 59, -1, 8 

898 DATA359,498,358,59,-1.€8 

788 оАТаз49,45,357,71,-1,8 

710 DATA346, 78, 353, 74, 359,78, 355, 75, -1, 0 

728 DATAS46, 57, 349, 5$, 349, 58, 347, 59, -1s 5 

738 DATA338, 69, 337,71, 344, 75, 349, ва, - Б 49 

740 DATÀ343,80,341, 77, 338, 74, 336, 71, - 1, 

758 DATA345,84,345,97,343,92, -1,9 

740 DATes352, 85, 351, 33, 353, 90, 354, 88, 352, SS, -1,9 
778 DATAS る 9。 84, S61, B7, 35°, 78, 364, 92,3962, 89, 365, 87, 369, 84, x 
788 РАТАЗЗВ, 1045, 348, 197, 338, 118, -1, 8 


3 


798 РАТАЗ29, 107, 32%, 118, 327, 113, 321, 115, -1, 8 

800 DATA317: 119,312, 122,304, 126, 296, 132,388, 127, 314, 123, 317, 119, - 1, 8 

810 РАГАЗ1$8, 107, 313, 113,304, 117, 389, 113, 218, 1€7, - 1, € 

828 DATA308,187,3084, 118, - 1, 8 

eso DATA36 1 196,381, 110,229, 199,299, 196, 297, 105, 297, 128, - 1, Ë 

540 ЕЕ 118,324, 123, 318, 127, 314, 132,305, 136, 295, 161, 237, 144, 285, 145, 295, 139, 

301, 1: 

856 DATA3988, 131, 3198,127,-1,8 

858 DATAS37, 125, 334, 129, -1,0 

2. е 123,317, 137,316, 145,208, 158, 295, 155,288, 151,292, 155,297, 150,305, 125, 
12, 

888 DATA325， 132， -1,@ | | А 

890 ОАТАЗЗ3, 140, 328, 144, 322, 147, 317, 151,318, 157, 306, 161, - 1, Ü 

7680 DAT6331, 149, 322, 156,323, 168, 324, 154, 331, 149, -1, 8 

910 РАТАЗ41, 154, 338, 158, 333, 141,329, 165, - 1, 0 

920 рата-2, 9, ө, а 


930 РІ=РАІ (1) :С=3:В=240 — 
9408 ХА=. 5:Уд=, 6:2А=8 А 
958 FOR X-R TO -R STEP-15 > OSZPSIXBIÉCGUGg 


958 FOR ТН=8 TO 2жРІ STEP PI/24 
970 Y=SQR (RXR=XXKX) XS IN (TH) 

988 Z-SOR(GRX*R-X0 XCOS (TH) 

998 6053181178 

1000 IF Z3«0 THEN Gs6:GOTO1020 
1010 505081270 

1020 NEXT 

1938 G=@ 

1848 NEXT 

1958 6=8 4 

1049 FOR Z-R ТО -R STEP -15 

1078 FOR ТН-0 TO 2ЖР! STEP PI/24 
1080 X=SQR (RXR-ZXZ) XSIN (TH) 

1090 Y=SQR (RXR-ZXZ) XCOS (TH) 

1180 605181178 

1118 IF 23<@ THEN б-0:60701138 
1120 505081270 

1138 NEXT 

1148 G=@ 

1150 NEXT 

1168 RETURN 

1178 X1=X 

1188 Y1=YCOS (XA) -ZXS IN (XA) 

TIRO Z1=Y%xS IN (XA) %2жС05 (XA) 

1208 X2=X1XCOS (YA) -Z1XSIN СТА» 

1210 Y2=Y1 

1220 Z2-X1*XSIN(YA? «ZiXCOS (YA? 
1230 XS32X2XCOS (ZA) -Y2*XSIN(CA) 
1248 Y3=X2xSIN(ZA)+Y2wCOS (ZA? 
1250 23-22 

1248 RETURN 

1270 GX-320*«X3:GY-100-.4xY3 

1280 IF GX<9 OR GX> る 239 THEN G-e:G0T01340 
1290 IF GY<0 OR GY>199 THEN 6=8:601013489 
1390 IF G-1 THEN 1328 

1318 LINE (6X, GY? - (6X, GY) , PSET, C 
1320 LINE - (6X, GY) |, PSET, С 

1330 G=1 

1340 RETURN 

1358 FOR I-8 TO 14 

1360 CIRCLE (320, 118+1ж5), 1ж2+1,3,.2, 8, зве | 
1378 NEXT 

1388 RETURN 

1328 FOR I=! TO る 

1400 LINE(220-IX50,99*IX28)-(420*IX50, 99 - I«X20» , PSET,LC 
1418 NEXT 

1428 FOR I=9 TO 5 

1430 LINE(-880*1X1690,216) - (170 * X68, 120), PSET, LC 
1448 NEXT 

1458 RETURN 


+ t AECA 


『 同 ズ スイ を 堪ら と て と きす 


ZUvVERTERSULI ЕЕ 


ee 
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マイ コン に よる 


どうですか? 


5 つ 2% ツ コン に つい て 知り た い 。 
な ど と ガ ゼ ン 意欲 の 湧い て 


9 だ bass. 
な ん と 言っ て し b. 
そん な 人 に 贈る 8{[ 


と я b ё 
= マイ コン に よる BASIC 入 門 


T. ド ゥ ワイ ヤー・M. ク リッ チ フ ィ ー ル ド Ж 
山下 純一 ・ 石 川 勝 訳 
現代 数 学 社 Y2,700 

BA SIC の 生ま れ た アメ リカ で 書か れ た 
本 で 、 順 を お っ て プロ グラ ム を 組み 立て な が 
ら 、BAS1IC 言 語 の 理解 へ と 導く 。 後 で 、 


プロ グラ ム 作 り の 参考 に な る 例題 も 多く ある 。 


だ ん だ ん BASIC が 勉強 し た く な っ て きた の で は 。 


自分 で アル ゴリ ズム を 組め る よ 


1 А 


BASIC 言 語 
қоуоня 


Л. S & 


ATLE Da 
ペソ コン は 今 も っ 上 も と も 面 和 白い マシ シン な の だ か ら 。 


選評 : 黒崎 佳 果 


の = 0 に 


BAS1IC 言 語 の 命令 の 一 つ 一 つの 使い 
を 覚え を たい 人 に すす め た い 本 だ 。 命令 や 関数 
の 使い 方 を 、 個 々 に サン プル プロ グラ ム を 例 
に し て 詳し く 解 説 を ほど こし て いる 。 | 


シャ ー プ X 1 ゲー ム プ ログ ラム 
ハー ド ソ フト 編 
工学 図書 Y| ,500( FM) 


まき に 、 遊 びな が ら BASIC 言 語 を 覚え 
られ る 本 だ 。 ゲ ー ム プロ グラ ム が 約 20 種 。 を 
の 一 つ -- つ に 親切 な 解説 が あ り 、 自 分 で 書き 
換え れ ば オリ ジ ナ ル ゲ ー ム づくり 5 


マイ コン &BASIC 入 門 


庄司 Ж 著 | 
KRE 0 


_ 初め て マイ ユン を 知る 人 5 、 身近 な 物 に ょ 
る た と え 話 な どか ら 自 然 に マイ コン が 分 か っ 
. て し まう と いう 本 。 マ イコ ユン の 仕組 みや B A 
S IC 言語 を 分 か りや すく 解説 し て いる 。 


280 Pe 
- プロ グラ ミン グ テ ク ニッ ク 
電波 新聞 社 Y 1,300 


シャ ー プ 'X 1 に は 、Zー80CPU が 使わ れ 
て いる 。 そ の CPU の 仕組 みや 機械 語 を 知り 
た い 人 の た め の 本 だ 。X 1 の 頭脳 で ある Z 
80CPU が 、 図 入り で 説明 きれ て いる 。 


マイ コン ・ プ ログ ラミ ング 
自由 自在 
矢田 光治 著 
誠 文 堂 新光 社 \1,600 
BASIC か と 機械 語 まで 幅広 く 知 り た い 
人 の た め の 本 。 プ ログ ラミ ング 言語 の 話 に と 
ど ま ら ず 、 実 際 に プロ グラ ム を 書く と き の 参 j 
考 書 と し て も 分 か りや すく 〈 書か れ て いる 。 


図解 マイ コン の 基礎 知識 


矢田 光治 ж 
オー ム 社 \2,300 

マイ コン の 中 が どう な っ て いる の か ? を 
知り た い 人 に は この 本 を 。 マ イコ ユン の 中 身 や 
マイ コン と ほか の 機器 ほ と の か か わり な ど が 、 
図解 に よっ て 分 か りや すく 解説 きれ て いる 。 


マイ コン パソ コン の 話 


RES Ж 
創 元 社 \980 

コン ピュ ー タ に 興味 や も っ た な ら 、 一 度 は 
読ん を で お きだ い 本 だ 。 コ ンピュータ の 歴史 、 
パソ コン の 生 い た ちか ら 、 実 際 に プロ グラ ム 
を 組む うえ ぇ で 大 切な こと が 記さ れ て いる 。 


РГСУ. ГГ“ 
EAN Б МУСО ЕЕ 
LIKH? 

DNAS- < Брю RU 
で No おやじ 4249: Im БІГУ МР 
АБУ) DINE 0 TN DONI THO 

КРУГУ 22-44720 {оҳе6* 
ВАСЯ! оок 


Кобе G PAKY RU ЛЕВ. еее ЕЕЕ 
ера е VÓ GG t KDA: в E pp HEBE RE EE SS 
ワリ SN ARAN КЛС ^. 2 әш 1) Le па aec — ES LM! owed ооо’ Сл 
š NAN Gp ERR-I доор кше ДШ +оо Сї) Оа ХӘ» USO бег Е 
8 
= SRR RL—-—aAa—VLL Gu НЕА О плаг LK 
E 
ге Фоо Ар нг? вла ЗЕНОН Акве 
£: FORGE кшш) эсш GEL I E 
> te deo Qo ルル っ と つく ペ セ で 36 ewm H : 
ооо ЗСК ニテ 、 ざ に で ここ Сіон >= O< : : 
Кос? c. IE CIC) ола TE GB No я 
NUR Sai Q 人 スネ ーー キー кА Qo 0 —30" “31 : 
so p KES | ЕВЕ ә nam 41 一 …… "Ни aa 50) : 
2 
INI キーズ <” wwS 深 〇 と キー や 時 セー x ТМ) Оше RE : 
fa $$ ONG Эммы! R ЛАСЫ Ы Q Ш NORRIE DNL ドー へ さや : š 
"ЗА С-қа {сё 民間 りつ upO と キー つの š z 
ее C QA つつ tJe ВА 2o ^n ج ما د‎ 2 


e*s....... 


<k Ке, mB J, ree? ZV se 


m i SU C SUED grr РЕ у き 抽 АЛОР O 

НЕО 7, 6 У Енг АСМ 
о ЕФ м Моо К NARS п о аА — his вво QI КАЛЕ 

家 一 入伍 大 要 二 全 “本 人 入 < 和 < влад Spy Qo <i Qo 40-7 ‘Ни Any Key " 0x7 
СЕ СК Е gro r) DR 34ای‎ 8= >< > Wp — 0 ок АМАМ исоб) zÇ 
()uex © つっ 0 本 トト で 人 人 つつ 公表 く ー ミ hk ° MH SD NARIN LR 誤っ Qt aa LL 6 0 8° 4- sQ O 5, 
a JING HEH © Arr SE RIN AF12 FUG i m KK 76 5r) NN SERO OEE K Q の 
LLAKI —K DER ARIES LS CORI’ セイ ウロ ら りつ の нг РАНЕЕ + S ЕЕ 
ЕЕ S Quri ARKAS- RR SiR — Ke RO’ deg TERRA 
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-一 
dd 
ュー トー 
50 
т 
00 
88 
-— 
yir 


ге 


im» 


-CAdOOH:: 


プ 

п 

7 

“ 

, 

+ 
は 
Eu] 
d L. м 
し て 終 
iod d 
> ә ] 

は 
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83 


1484 OPTION ВАЗЕ 1 

1й2@ DIM D&à7, 97», ТН $7), TU ($), 50 (F2, KH$ (т), KU COO DZ (7, 9@, 2) 
1040 INIT:HIDTH 46:CLS 4 

1344 COLOR INT CRNDXé +1? 

1888 PRINT " жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж "у 

1188 РБІМТ "ж ж" 

1128 PRINT "ж 1 *** рата INPUT & EDIT ж" 

1148 PRINT "ж go ass У fgg ж" 

1160 PRINT "ж 3 +++ THE END ж" メイ ン ル ー チ ン を つ < ぐ っ て し きす 
1188 PRINT "ж ж 

128080 PRINT "жжжжжжжжжжжжжжжжжжжжжежжжжжжжжжжжжжжжжжжжн г 

1228 PRINT "COMMAND ? ": 

1248 REPEAT 

1246 СОФ=ІМКЕҮФ 10) 

12808 UNTIL DU$»"&8" AND Du*< "4" 

13809 COLOR 7 

1320 ом VAL 00%) GOTO 20608, 50800, 1340 

1340 CSIZE 3 

1368 CURSOR 14, 1S:PRINT #8, "THE END" 

12339 END 

1979 REM 

гайа WIDTH S88:PRINT 

280280 RESTORE 186868 

2840 FOR Ісі TO 7? 

2950 READ KH*:I5 

газа NEXT 1 

2188 FOR Ісі TO $ 

2128 READ КИФ (I) 

2148 МЕХТ I 

2169 FOR Ісі TO $ 7-9 を A る 

2188 FOR JEt ТО 7 

228 READ САТ, 1? 

2220 NEXT J 

2240 READ TUII> 

22680 NEXT I 

2288 БОР I-1 TO 7? 

2300 READ THiI? 

2328 NEXT I 

2348 READ GK ALLE MT 
ES6B PRINT í n Wu sssi FV. 
= ys Ә Н 

2580 PRINT "| БАЗ 

2488 FOR Ісі TD 7 

2420 PRINT "|" SPO (E-LENLKHE (I?I? КНТ) { 

2440 NEXT I 

2460 PRINT "| Totali"; 

2480 PRINT “和 
ee ccc "s 

2500 FOR I-1 TO ?7 

2528 PRINT "1"; SPC <7-ВЕМ (КУ (123 КФ СТ»; 

25460 FOR 7-1 TO 7 

2540 PRINT "|" RIGHTS с" "+STR*(DA (J. 122.90: 

2588 BEXT J 

2400 РБІМТ "1 リ "3RIBHT ま てく " Е а СТУ I Во турге 
2620 PEINE ドーーーーーー ビ ーーーーーーーー ж F +++  5T=t—yn. 
e — i "os 

2640 NEXT I 

2650 PRINT "| Total"; 

2688 FOR Ісі TO 7 

2700 PRINT "|":iRIGHT$i" LEFT 事 STR あて TH $122: PION 
2720 NEXT I 

2740 PRINT "|":RIGHT$«" "SLEFT$GTRS$OK2,82,72 5" |": 
27860 PRINT " 

————— os 

2788 FOR Ісі TO 7 

28009 DU$=KH$ I) 32:8BO AB 

2820 LOCATE  IxX9,2:PRINT DU$: 


2849 КЕРЕАТ 


2860 ІКФ=ІМКЕҮФ (12 

2820 IF CIK$=CHR$ (8) OR IK$-CHR$(&HiD)? AND LEN (DUS) > 日 THEN DU$-LEFT$(ODU$,L 
EN<(DU$)-1):PRINT CHR$G&HIiD): 

2788 IF IK$5-" " THEN DU$-DU£$*-IK$:PRINT IKS; 

2928 UNTIL ІКФ=СНЕФ (13) ОР LEN(DUS$) 7-8 

2948 КН (1? =DU を 

2960 LOCATE 1ж9, 2:РК ИМТ SPC (8-LENCDU ま ) ) DUS; 


2988 NEXT I 

Sad LOCATE 8,0:PRINT СНКФ (5) { 

3020 LOCATE 10,0:PRINT "コル テー イイ テス カニ ? "5 
30480 ІКФ=ІМКЕҮФ (1) :РРІМТ IK$; 

3050 IF ІКФ= "М" OR ІКФ= "п" THEN 2730 
3080 FOR 1=1 TO ? 


3188 DU$-KUS (I> 
3128 LOCATE 1, IX2*2:PRINT DU; 

3140 REPEAT 7718BOAT7Z 
3168 ІКФ=ІМКЕҮФ C1? 

3138 IF <ІКФ=СУЧЕ + (3) OR ІКФ=СНЕФ 8410) ) АМО LEN«IXDU$»»58 THEN DUS$S-LEFT$(DUS$,L 
ENKDU ま > - 1) SPRINT CHR ま (S&SH1D)* 

3208 IF IK$»-2" " THEN DU$-DUS$-IK$:PRINT IK$; 

3228 UNTIL 1К$=СНР$ (13) OR LEN DUE) >=? 

3248 KUS (1) =DU$ 

3248 LOCATE 1, IX2*2:PRINT SPC (7ーLEN CD まう ) ОФ; 


3280 NEXT I 

3380 LOCATE 8,0:PRINT CHR$(55; 

3320 LOCATE 10,0:PRINMT "267" AAT л ? "3 
33480  IK£$-2INKEYS$D:PRIMNT ІК; 

3360 IF IK$-"NM" OR IK$-"n" THEN 3080 
3388 FOR 1=1 TO 7 


3408 FOR J=1 TO ° 
3428 DZ(I, J, 1) =1ж 

3448 DZ cI, J, 2) «242 ЉВВох.Ү EHR Баса AND 
3460 NEXT J 


3434 NEXT I 
3500 XxX-1:Y-1 
3528 REPEAT 


3540 DU$-2MID$STR$(ODAO, Y3), 22. 

35640 LOCATE DZ (X, Y, 15。DZ(X Y2} :PRINT DUS; ІННОФАР 

3586 REPEAT 

340A ІКФ=ІМКЕҮФ 1) 

зеге IF IKS=CHR$ 45) АМО LENKDU も うと 9 THEN DUS=LEFTS (CUS, LEN DUS) =1} SPRINT CHR 
まま (8&H1D) 5 

3440 IF «ІКФ>-"0" АМО IK$i-"T?") OR (IK$="." AND INSTR (DU$,".")=0) THEM DU$- 
DU$*IK$:PRINT IK$; 

さら る 9 UNTIL ІКФ=СНЕФ (13) DR LENKDLI$)>=ë OR 1К$=СНК$ (27) OR ¿(IK#$>=CHR$ (HIC) АМ 
D IK$«4-CHR$(&HIF)) 

3638 DGK=GK-DA CX, Y) +VAL (DUS? 

3700 IF DGK?9????9??9' THEN LOCATE 10, Ө:РБІМТ CHRS (5>; "Overflow" :ВЕЕР:БОТО 3528 
3720 GK=DGK:LOCATE 72,22:PRINT RIGHTS" "*LEFT$(STR$GK»5,87,7»5; 

3748 TH OX «ТН € -DA (X, Y? *UAL 400%) :LOCATE DZX, 1,12, 22:PRINT RIGHT$c" ш; 
LEFT#*#(STR$(TH(X)),? 8); 

37580 TU СҮ) STV CY) -DA CX, Y) HVAL (DUS) LOCATE 72, DZ (X, Y, 22 SPRINT RIGHTS (" ы 
*LEFT$4STR$CTUCY22,82, 7); 

378808 Dñ CX, Y) -UAL (DUE?) 

3308 LOCATE DZ (X, Y, 12, DZ€X, Y, 22 PRINT RIGHTS" "+STR$ (DA KX, Y25,82 ; 

3820 IF ІКФ=СНеФ 13) OR LENCDU ま も ) >=STHEN X=X+1:IF X»7 THEN X=1i:Y=Y+1:IF YDS TH 
EN Y=1 

3840 IF IK$-CHR$:&H1C) THEN X=X+1:IF X57 THEN X=1 

38580 IF IK$-CHR$(&H1D) THEN X-X-1:IF X41 THEN Х=7 

3880 IF IK$-zCHR$(&HIE) THEN Yz2Y-1:IF Ү51 THEN Y=? 

397806 IF IK$-2CHR$(&HIF? THEM YzY*1:IF Ү>? THEN Y=! 

39280 UNTIL IK$-zCHR$ (27) 

3940 CLS 


37480 DL=10000' 

3988 PRINT DL;"DATA "; 

4àà8 FOR I=1 TO 7 ЕА | 
4020 PRINT КНФСІУ $", "; テー タ 文 自動 作成 
4848 NEXT I 

4868 FOR 1=1 TO 8 

Заза PRINT КУФ СІР З", "; 


84 


85 


4100 
4126 
4148 
4168 
4180 
4290 
4220 
4248 
4260 
4288 
4388 
4320 
4348 
4360 
2380 
4400 
4420 
4440 
4460 
4999 
5000 
S420 
5040 
5850 
5988 
5108 
5126 
5148 
5156 
5180 
5200 
5220 
5240 
5240 
5280 
5388 
5328 
5340 
5358 
5388 
5400 
5420 
5440 
5458 
5480 
5508 
5528 
5540 
5550 
5580 
5400 
5628 
5549 
52480 
5888 
6920 
6848 
6058 
5088 
6108 
6120 
5140 
6158 
5180 
6208 
é220 
DU/2 
る 248 
5240 
6288 
é3e8 


NEXT I 
PRINT KUS (C1? 
FOR Ісі TO 9 
DL =DL+19 
PRINT DL; "DATA "; 
FOR J=1 TO 7 
PRINT MIDS (STRE (DAJ, 155,2); " 
NEXT J 
PRINT MID$(STR$(CTUCI»2,225 
NEXT I 
DL=DL +18 
PRINT DL; "DATA "; 
FOR 1=1 TO 7 
PRINT MID$(STR$(OTHCI22,225","j 
NEXT I 
PRINT MID$(STR$GGK?,25 
PRINT "RUN" 
KEY 0,CHRHR$ (112 *STRING$G12, 135 


END 
REM 


RESTORE 1688868 

FOR 1-і TO 7 
READ KH を I? 

NEXT I 

FOR I=1 TO $ 
READ КОФ (I? 

NEXT I 

FOR Ізі TO F 
FOR 1:1 TO 7 

READ DAI, 1? 

NEXT J 
READ TUI) 

NEXT I 

FOR Ісі TO 7 
READ TH XI) 

NEXT í 

READ GK 

WIOTH 48:INIT:CLS 4 


"os 
М 3 


デー タ ぞ を 配列 に よみ こむ 


PRINT "жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж" $ 


PRINT "ж 
PRINT "ж 
PRINT "x 
PRINT "x 
PRINT "x 
PRINT "x 


PRINT "жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжежжеж"ежжжзеж жен ж” { 


PRINT "COMMAND ? "; 
REPEAT 

ІКФ=ІМКЕҮФ (1? 
UNTIL IK$»"QG" AND IK$4"S" 


ON VAL (IK$) GOSUB 50800, 3000, 5000, 5640 


GOTO 5348 
RETURN 5668 


GDTD 16848 


WIDTH SO: INIT 


+ t) س زم‎ 
мыс 
ç ur > 
E) 
8 
4 
SI 
`1 


ж"; 
же 
ж"; 
ж"; 
ж" 


ж"; 


グラ フ 人 作成 の ヘッ ター 


LINE (88, 14)- (88, 175) - 4590, 175) T 神 ク ラフ . 祈 中 株 グラ フ の В を 書く 


MAX = 8 
FOR Ізі TO 7 
FOR J=1 TO 7 


IF мах<ОА 1. J? THEN MAX=DA cI, J? 


NEXT J 
NEXT I 


DU$-STR$C18^cINT (LOG (MAX) /LOGC18222 +. 5) 


DU=VAL (LEFT$ (00%, INSTR £DUS$*", n, ", 
DLI8=C INT (MAX/DU? жоу 


arn ДЕ 


適当 な MAX 値 を 決め る 


IF VAL (MID を (STRE (DUG), 2, 122254 THEN MàXs-DUx18 ELSE IF DU8&MAX THEN MAx=DUG+ 


ELSE MAX=DUG 
WINDOW (Əi,186)- (632, 175), CO, MAX) - (4й, @> 


FOR I-sMAx/18 TO МАХ+1 STEP MAX/1G 
LINE <(0,12-<1. I), PSET, ? 


LOCATE 0, (180-IX10/M6éDO «2*2:PRINT RIGHT¥ (SPACER (7) +STRE ECCINT KIDD, 16); 


о 
D 


m 


D 


im Cm cn CH p L PO Ь pO QY OY Ww 


{б о BPN c (Q CO p. p) co (D C P Bà 
[хл ] 


Ü US Dh 
c c 


0 


0. 0. Г O 
Cc m m 


D 
m oc cc om 


„о O. D. 


کک ف 


NEXT I 
LOCATE 7?,22:PRINT 
FOR 1=1 TO F 


"а"; 


LOCATE IX?*56,22:PRINT СЕРТЗ КИФ (I), 49 
LOCATE 1жЖ7+6, 23:РВ ПМТ MID 囊 5KUW 囊 CI 5); 


МЕХТ 1 
IF IK$-"3" THEN ға 
РОВ Ізі TO $ 
FOR J-1 TO 7 
50472-41 
МЕХТ 2 


ай 


FOR Je7 ТО 2 STEP =] 


FOR К=1 TO J-1 
IF DASO 47), 
МЕХТ ド 
NEXT J 
FOR J=1 TO 7 
IF 50412-7 THE 


I> >D SG Kia 17 THEN S 


N LINE «41-1›ж4+2,8›- 


FF, 2610101610, В, SHFF, 581019101) ELSE LINE tI 


ост», 
る る ロロ 
ета 
&72@ 
тайа 
7020 
7040 
Tasü 
таза 
7100 
7128 
7148 
7150 
7180 
Saa 
sezü 
244 6 


8858 
8630 


BF 
NEXT J 
NEXT 1 
GOTO ғайй 


. 
5 


1&72788« 


МАР 50 <J SS c> 


(жа, DS 4S0 (TY, 12), PSET, BF, СНЕФ CE, &H 
-i3X4t*2,02-CDX4, DACSO (Ју, 122; PSET, 5 


LINE 441-1) жа+3, РАСТ, J25 - (1ж4+3, DACI, J*122,PSET, I 


LINE <(1-12ж42жз,рА(<1,422-(Лж4 2, ОА (1, +170, ҒБЕТ,2,%В1й101081014141014 
LINE i£I-150x4*3,DAàCI, Jo = CIxXx4 «3, DACI Jt 12»,PSET, 5,%В10101010108181С01 


FÜR Ісі TO ё 
FOR J=1 TO 8 
NEXT J 
NEXT I 
FOR J-1 TO 8 
MEXT J 
GOTO 96888 
WIDTH 88: INIT:CLS 4 
FOR Ісі TO ? 


Y mz579f« 


WINDOW 4441-1) MOD 32ж200445, ІМТССІ-12/32ж6ей%293-(ск1-1) MOD 3)ж290+155, 
ІМТ<<1-12/32ж68%682, (-2,22- (2, -2) 
CIRGLE (8, й), 1,7,2 


LOCATE 41-1) MOD 3) ж25+21, INTCCI-12/320*745:PRINT ЕРТФ КУФ (T I 4) y CHRE CE 


HIF, &H1D, &H1D, &Н10,  &H1D) ; MID$ (КОФ CID, SD 


8199 
8128 
8148 
5140 
8188 
S288 
e220 
3240 
8240 
3280 
азай 
8328 
8346 
8366 
E338 
a400 
6420 
ELSE 
8446 
84658 
8430 
78050 
ойга 
зада 
Fasa 
vasa 
9100 
7128 
?148 
9150 
7188 


FOR Ј=1 TO 7 
50 (J) =J 
NEXT J 


FOR J=7 TO @ STEP -1 


FUR Kol TO J-1 
IF DASO (J), 

NEXT K 

NEXT J 

DUg ロ = ロ 

LINE 0,6) -– ‹0,2› 

FOR 1-1 TO 7 
DU=DÁ (SO (J>, 1) 


1:>ра<50(К2,12 THEM 5 


s РБЕТ, 7 


ZT (1) PAI (2) +008 


Y2COS (DU) x2:X=SINKDU жо 


IF JS? THEN t1 


NE 0,0) - (х, Үү), PSET. 7 


OU9= (DU+DU9) #2 
Y=CUHSKDUB) : X-SIN(DUG&» 


IF 507) =7 THEN PAINT 


PAINT Хх, I, SOJ), 
DLI8=DLI 
NEXT J 
NEXT I 
INIT 


一 
D 


FOR Із? TO 535 STEP 88 


LINE 1,170) - I FOO, 199), FSET, (1-9) /88*1. BF 


NEXT I 


WAF SQ (J), SD К? 


CX, Y) s CHRS (B, &HFF, &B16161010, 80, 2HFF,$B1818018125,7 


мылтық 


LINE €I,1?8»-(I*80, 197), PSET, BF, CHR$ Ca, НЕЕ, ЭВ10101й016, 0,ӘНЕҒ,%В1й101812 


FOR 1-1 TO 7 


LOCATE 4I-15»x11*42,24:PRINT КНФ І) § 


NEXT I 
WHILE INKEY$«»"" 
НЕМО 


} キー パッ ファ を グリ ア 


со 
о 


9200 CURSOR 180,0:PRINT "Hit Any Kev "ji 

9220 DU ま =INKEY ま て 1) €—— 16] 9\4$ Хи 0607115 

9248 RETURN 

9999 REM DATA 

10000 DATA 92747,4711? -4, 2" 13227, ナイ ロン 。 フ ° 92$ 92, 3^ -N h^ , эм” -, No. 1, No. 2, No. З, No. 4, No. 
5, No. ós; No. 7, No. 8, No. ? 

10010 DATA 1,2,3,4,5,6,7,28 

18020 DATA 28,29, 38, 31, 32, 33, 8, 191 


10030 DATA 27,48,49,50,51,34,9,2ó68 デー タ が っ て いき す 
せ モ の を 入る と 自動 的 
4 % , 
10050 DATA 25,46, S9,62, 53, 36, 11, 292 に 変わ リ ま す 


10060 DATA 24, 45, 58, 63,54, 37, 12, 293 
180078 DATA 23, 44,57,56, 55, 38, 13, 286 
10080 DATA 22, 43, 42,41, 486, 39, 14,241 
10098 DATA 21,280, 19, 18, 17, 16, 15, 126 


10040 рата 26, 47, 50, 61,52,35, 10,291 ここ の テー タダ は 者 T し い | 
10100 DATA 197, 324, 377, 386, 359, 274, 99,2816 


o 
の 定 な りり 2 Em dX 48 E 1 因 だ シ 話 グ H № = y ジ が フ 
Еве _ | め の こ の одет S し £ < > x だ 一 > L1 
"da du “с За 仏 に と 区 れ 女 の を うぅ う タ の 進 ム に 的 ず よ ク こ ミ ° G 2 &€ >” . 
MEXyCCUM тие えも か ッ プ め を 了 プア 例 うり で と こう も っ = E) 
以 ゆ な 軸 uou o27.0 825g t "uU Hg, —r xl 74 v =. 
* 内 に ら 方 る E gx * IEOR” * Ú % z 2 > @ 5 ( Y coe se EE = 
MEUM -A3 間 が š fj ® се 74250 Ш る ライ 何と 5 使 
た だ た だい は 2 AE (d は wË >а い WEZ ム [S së る Eel м の い ム 
ELORO 数 3 G だ m コ 例 て ミ A | @ が a メ ケ が か ん が は 
L 2 CRD 値 o эру Нед 進 E b Z の ッ が 続 に ` の 
直 1 25 24 "m や ° есте 75 2 Unc CE | fü + š 40 mo = 
L o € X S” sa he m de 77 oue = 前 た が kL. 2 mo d. b BS = г 
4204 NE E L * な が テ n пов #1 > kzt ig 1 ば ME 
EE CE タ © = 5 9 ЖС 1] "» け Я 1 54 対 5 も х メ か 
DIKES が っ ろ ほ て ロト # を 分 な Е. | R5250 >b Bs] 
BY E Е が н 行 か + AS 3 2 5 の か < し > ジ を ま " プ ュ + の 
5 な 指し 誤 Е № の は る エン 10 原 る て T R D но о 3 ЕЛ š 
1 18 WIDTHBO:CLS:CSIZE 3 ие 3 
ss ros = "айги 
38 LOCATEO.2:PRINTSO, "А 75 Z 75^ テキ ルク タケ API t-9 994% 25-94" ラ 2 n РА な = m 
46 FOR 1=5 TO 8 STEP-i | стае 40 ° X 
Ede Vr = こっ 
Suntax error in 18 A mhko"o. “7 
К wy ] X が め m <. | 
OK з > dz 
8 y" ° z ] 
| 324 ZR DA 
ジ Шай に 5 
2 19 WIDTHEA:CLS:CSIZE 3 は 所 プ た 対 対 = 77 
28 Е=й を v X oW 応 
38 LOCATEO8,25:PRINT40,"A カラ Z 75° FFT IN ヤク t-9 5545 29*94" 正 確 イラ + + = + 
48 FOR 1=5 TO 8 STEP-1 L 認 画 | る b = ] 
Illegal function call in 38 b Их za 9 
Ök t に vim m x 
ロ vod elm Su 
” = gu 行 の 
3 18 WIDTHE G:CLS:CSIZE 2 見 
28 E=@ あ の ежа 
30 КОСАТЕВ, 2: 2А1МТНО, "А カラ Z v5" FFT NPI F-3 A545 クタ "サイ са ec 
48 FOR 1-5 TO û STEP: GOES RE. 
41 LOCATE (5-1) жа, ét PRINT4O, I1 味 た 載ら り を 
42 FOR J=1 TO :500 a Р ол 
43 МЕХТ x て d^ 
44 РЕІМТЊЯ, " START: 1 "BEEP л € vx IR 
са Des А. SF UNE, 12 法 現 る を noo 
に 0 ші 10 26 ` ` ` 
70 A$=INKEYS T 512 ж ^ 作 
= IF АФ=СНЕФ (64+1) THEN PRINTSO,.6$: ELSE IF АФ="" THEN 70 ELES Е=Е+1:ВЕЕР:60ТО &. | Ж に 2 
98 NEXT l > d ч も た 
100 LOCATEQ, 16:PRINTMÜO, "ショ ヨウ シド カン "ITIMES:LOCATEO, 1 ご 1!PR NT 入り 9、" ウ テマ チカ ドイ "ES リド カシ ヨリ ANI С 数 め 
110 END š x し А Ж 2 
VPE WA X oW 
FOR uithout NEAT in 48 L + 120 А Ug 
€ Y い 面 が 手 


87 


hr 和 SS 一 


"ТӨСТІ ^ 


つの нр е 


— C TIK RT 


mam? 226 
= 
C^ услу < 
ра 
4- tQ PE ] ev で 4r 
ト べ ご の へ = R 
ООА ТМА 
DALIS м >С 
Кизел RIN 
AFORE 5 
で トー コー コー = 
—Go c= Y ceo 


INVEX -SLOC әчен NHN 
ONIN -T828g4S 4610? 

HOO -----R: SM fev upg S 3X0? ІК 
SER фы ГЕТ 5° 0062г 
< ^ Lb Ub 6H lii S10 R39 

HGD.OO?* IEiibo —- 163 ovo | 
ЫНЫ NES? NN つじ mier - Ow KH 
Юа НВК ЛЕН MOFIDISNO 


АКА AN F CON KR (9 


BRINE FIR); ox? O NEARS 
ANKO) Ses Un" の と キー 


§ Bi PRINT, RE te 
И E 


T: 


2E 
1 


сас 


h 2t PRINT, CHR (1430) t NEXT 


FOR 158 109 


555 
585 


21191679: 
К 


" 
< 
k 
= 
8 
š 
= 
p 
1 
$ 
ま 
2 


= > к Га ^ 
MES уы ) юг کے‎ | +. NN x < E 

> mi d £ = "n mco ^ Cui c " = de >= 
KAF A OWN МПА Ма RAEL C o D< Ç wu IG Rm. o 
de LXI. dt ミー ニア шолуы è " A 
10.50 tQ (ша) EE У < Wa wt 


қы” r 7а. Gi — SR n + ミー キャ < Hit (RETURN) Key / ” $° 


N SK AUREL NN トー S3 ^O, u food Sot ovo 
ヤー トト うきうき サート HAN SS баг? eorn ‘р, СЛЕ 
AKAR шысы МО ът nidi. 
КаК Боло оба 4 СУЫМ р (Nap EE 
SGN (ШО) Зо) € Cy Bec te 
JOR A NIN HEH IgE оу F TAXES Берка Y/N’ % 
А-а’ EEE LRRD) RA PIRSL 


88 


® ө e х | + X 
C カ 0 Рае 
Іі す D る j を fE Ca T X ш 
: $ v Pr 7 ES G & J] wg 
f Е: ПЗЕ 0 ab 5 
成 キ < : て め 義 れ は が ム 
5 | の > LO 2 15 W 2» 
れ : 数 | голас ë 
7 だ : ES 7 т x u 7 27 É б = 
x T o3 38 ЕКЕЗЕІЗІ 
ЖЕНЕ 5а ро аве а = 
> ука ёё ТАШ cir 
ク ル の の та ај は て 
М зех L1 コロ ら キ ob も 
| E ж 280 lg ox c > di T 
e ЖЕСЕ! 2 100 м тя < を 
P Вит E すろ ら b ラク Мих 
С М 5 v 1280 92 %8 し 1 
M > 158 
£ 148 
о ° 128 > z u n S7 і 
2 L @ 198 [CG な ダム 
] de 42 > С i ‚ 5 を を 
ж: + G 188 тєш № е 
ее л 138 か が 3 b ム © &= こ 
最 才 现 £H 定 5aa г 5 i } {= € up уй 
初 る 在 A. Ж 218 5 JJ W は C i Е 
か の 込 し 2280 t け zx R L Z 
ら P Ç ` 55а ЭТІ үт |] 
定 С 2 240 E? 2 | L 
f G の 259 ^? PLN 居 
L の 7 5" C ^ 3 9 外 
な 内 | E d だ < の 
s ж ; "UU 
1 を C E L m 27 
画 | Pol m i 
ІН の p ланч? 
| ク x と で m ロ 
- 3 БН то? グ 
18 ЗСРЕЕМО, B, 8:MIDTHBG | 
і 26 Сі 54 
: 30 INPUT"X ?(1-152"; e М 
40 IF xy15 OR X<1 THEN 38 タテ 方 同 と ヨコ 放 語 の 文字 数 を メカ し き チ 
56 INPUT"Y 2(1-4)5 "iY ; 
é8 IF Y»4 OR Y<1 THEN 58 ! 
780 CLS г 
88 FOR 1-8 TO Хж4й STEPS 
9*8 LINE CI, 8) СТ, r*4802. PSET, 1 
188 NEXT ' 
118 РОВ I-8 TO Үж4й STEPS BLITAB EST (9 ' 
12@ LINE (8, 1) - (Хж49, I), PSET, 1 р 
‚@ NEXT 1 
148 Р=1: 
158 GOSU А 
60 A$-INKEYS$ 
IF АБС CAE >47 АМО ASC (аФ) <55 THEN 60518328 | 


89 


IF А%="С"ТНЕМ 6010358 
IF &t$-"L"THEN GOSUB 
IF &$-"'"THEN GOTO 
IF ASC (АФ) > ам (АФ) <32 EL 
LINE (8, (Q-1) KS) - OCCO«4 8, 0X5), PSET， 
LINE ¿(P-1)x5, 0) -(Fx5, x40), PSET, 
IF А%=СНЕ% ) THEN P=P+1: IF Р>хж8 THEN Р=Р-1 
IF A$=CHR$ (2?) THEN P=P-1:IF Р<1 THEN P=P+1 


%-20%%/2/717897 


и 


つ 


E 164 
1, В 
1.8 


й-Ш&4#%@й( 49 


268 IF A$=CHR$ (30) THEM Q= 
270 IF АФ=СНАФ (31) THEN Q 
288 GOSUB298:GOTO1468 

298 LINE < <Р-1\ж5, 05» -<Рж5, 140», PSET., LC, B 

LINE CO, (0-12жб) -(хжа0,0жа),. РБЕТ, С, В: RETURN 


e 


зӣ 

310 6010168 

320 IF LC=VAL САФ) THEN LC-LC-1 ELSE349 ИЕ ЕЗЕРА: 

338 IF LC<4 THEN 15-7 GE TILAGI 

зай GÜSUB2PG:PAINT(PXS-2,; 05-2), YAL (AS. LE の パレ ッ た コー だ で "た 7 
358 RETURN 

Зей LOCATEOS,23:INMPUT"TrF?78-Jj-h"7 ナフコ カラ ティ キー ジマ スカ ア C32 カラ 2999|77 yy ws DE 

378 IF CC<@ OR CC>255 THEN CLS:RETURN 

388 IF CCe(OC1)*(Y-1)XB)255 THEN CLS:LOCATEB,22:9RINT"v// ドン コウ カラ ニキ イキ ドス 上 ルト キャ ラク ター 
"ヲリ オク ナリ マス 。 モウ イチ テト" イル ナオ シテ 78574." :GOTO340 

398 CLS:LODATEB,23:PRINTXOWYXS:" а ЖАЗ тежа," 

АВЕ Үіеі:? FOR vis: TO Y 

418 Хі=1:/ FOR X1=1 TO X 

428 RZ2$-"":G2$-"":B2£-"" 

438 FOR 1 TO 8 


aag R=" "HRES " noppa” " 
450 FOR X2-i TO 8 
4&8 ГеРОІМТ((Х1-ізжайжх2ж5-2, (Y1-1)wap+Y2wS-2) 


270 IF С-0 THEN R$-R$«"0":6$-G$2"O":B$-E$e"p" 
488 IF С=1 THEN R$-R$*"0":G$-G$«"O":B$-E$-"i" 
98 IF C-2 THEM R$-8$s"1":6$-G$2"Q":B$-E$e"ü" 
Sø IF C=2 THEN R$-R£«"1":6$-G$4"ü":B$-ES$«"1" iB E IED AT 
518 IF C-4 THEN R+=R#+"B":G$=G$%+"1":B$=B#$+"ü" DEF CHR $0T'-^l- 
520 IF C-5 THEN R$-R$«"O":6$-G$4"1":B$-B$«"1" 4839 
536 IF С=4 THEN R$-R$*"1":G$2G$4"1":B$-D£e"Q" 
540 IF С=7 THEN R$-R$*"1":G$-G$*"1":B$-E$«"]" 
E56 NEXT 
556 R1$-HEX$(UAL("BB"4RS)): IF LEN(RIS)-1 THEN Ri$-"B"-4R1$ 
578 Gi$-HEX$(J/6L(CLB"*G$)) IF LEN(G1$)-1 THEN G1$-"D"4G1$ 
528 BIS-HEXS$(QAL(C'SB"SES)O):1F LENCB1 ま )=1 THEN Bi$-"O"«Bl15* 
сей R2$-R2$4R81$:62$-G2$4619:B02$-E2$4E15$ 
688 NEXT 
818 R3$-HEXCHR$ (R24) :G3$-HEXCHR$ (624) :83$-HEXCHR$ (B28) 
620 DEF СНЕФ (CC+ (х! =1 + C1 - 1D KA) -B3$4R3$«63$ 
538 GDTDS3SB 
648 X1=X1+15 IF Х1>Х THEN 458 ELSE 428: NEXT 
658 YizYleiiIF Y1>Y THEN 450 ELSE 410: “МЕХТ 
588 CLS:GOTO190 
578 CLS:LISTó78:CLS:CSIZEZ 
&88 FORISGTOS:LOCATEIX2410, 0: PRINTRB, CHRE (45+1) :NEXT 
590 FOÜRISSTO2S:LOCATEO, I- 1:1PRINTHO, DX101 : NEXT 
788 СбЕМ! 


718 FOR I-2 TO ° 
728 LOCATEIX2*«10,2:PRINTHO,CHR$It3605:NEXT = 

730 FOR Ј=4 TO 24:FOR I-6 TO $ @ の / ズ た を 表示 と ま チ 

Тай LOCATEI*«2*18,J-1:P9R8INMT&OG, СНЕФ (18Ж.1+1) : NEXT: NEXT 

750 FOR I-8 TO 5 

768 LOCATEIX2418,24:PRINT48G6, CHRSCIM250);: NEXT 

778 CGENB:CSIZEG 

788 LOCATE40, 12:1PRINMT"th- モト “ルル トキ まい Hit [RETURN] key ''" 

798 A$-INKEY$:1F А$=СНР$ (135 THEN 240 ELSE7?8 

888 ЗСРЕЕМВ, 8, 8: ССЗ: RETURN 

818 CLS:LOCATE8,23:PRINT"tO4*kh* пет メカ ラニ PUTZH? (Y or №" 29-2189 

S28 АФ=ІМКЕҮФ: IF АФ="Ү" THEN 28 ELSE IF А+= "М" THEN CLS:GOüTOP18 ELSES28 

838 ГОСАТЕВ, 24:1=1 

24а PRINT 18888*(CC* (1-15 + CF1-10 500 X10: "DEF СНЕФ (";СС+ 51-1} + 1-1 KX; "2 2" "НЕХ 
CHR$i":ICHR$(GA4) «B2ZS$4RZ$4G2$4CHR $0345; ") ":PRINT теу Я ВЖ (39 
858 LOCATE8,23:KEY0, CHR$ (30) «CHR$ C36»? «CHR$ C12) €"GOTOSé8 " +CHRE (13) : END 

858 5070648 
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лп 429 ? № 


бым — 
ndo mpigeecuiy-—»o 


LASTS НЕ 


2 


с 


>ОФ + ALK o0 


HAK TDO ETAJI] 

188 DIM KKt1, 50), KT(50) ВСН АА. ぞっと Sé LIETE 

1600 INIT:WIDTH 48:CLS 4 GY Cu ba =+ + U 

1858 COLOR INTERNDW7) +1 PCG キャ ラク ター を 7 カロ え 7 ば" と) と! です 

1180 CSIZE 3 

1158 LOCATE 18,4:PRINT 40,"52^ 2 ятла "i 

1288 LINE 9,0) - (39,92, "ж", B 

1258 LINE (1,1)-(38,8), "ж", В 

1308 GDSUB 30060 

310 COLOR 7 

1358 FOR 1-0 TO K 

1480 LOCATE 15, 1ж2+12:С6ЕМ 1:PRINT КОФ СІ); :СбЕМ Ô 

1456 NEXT 1 

1588 FOR 1=8 TO K 

1558 LOCATE 18, 1ж2+13:РВІМТ "+++ "#KN$ (I); 

ié88 NEXT I 

1558 LOCATE 15,24:PRINT "ナニ カ キーラ オシ テリ si 

1786 DU も =INKEY も て 1) キー 

5. 5-Д0% 042789 

i880 (Hee た ク テ ン 

1850 FOR ісі TO 18 РАБ で きき ぎす 

1788 (ciem о "dis 51 

1980 Те] Z7lL—wv АНА СТ 

2000 FOR 1-і TO А 

2100 КК CB, T> 2 INT £«RND«38,75» +1 

2158 КК (1, J?’ 2 INT (RND* (K +1)> 3 

2155 FOR ізі TO J-1 

2168 ТЕ KK ti J =КК (1,0) THEN 2158 ККК» д) Kk ZiL-wodisre 

2178 MEXT L түт ЕЕ 

2208 FÜR T=T TO Т+КК‹а, J-1 

2258 КТ СТ) =КК C1, J) 

2388 NEXT Т 

23580 NEXT J 
zaga Tai 

2450 FOR J-8 TO Тжг - м w 
5 F : : | 人 ラン フフ” で し ! つ シャ ッ プ ルレ 

E 4 Ж(Т-152%1>5;КТЧІМТЧЕМОЖҚСТ-12%122 a 
— к. КТ (INT (RNDXX CT- 12 € 122 , KT CINT (RND 12+1 | (спра АС 
2680 _ INIT:CONSOLE 4,20 
2850 . CLS:LOCATE 6.5 
2786 FOR J=l TO T 
2758 CGEN 1:PRINT KD ま (KT(J)) ECSEN 0 
2770 IF POS (0) >33 THEN LOCATE る ,CSRL IN+3 
2888 NEXT J alaq =t20 rei ra 
2850 . MsINT(RND*( 12) 
2908 FOR J=1 TO À 
2950 IF KK(1,J)=M THEN M=J:GOTO "LOOP END" 
3600 NEXT J 
3056: GOTO 2858 
3188 LABEL "LOOP END" 
3150 LOCATE 5,18:PRINT KN$(KK (1, М) з "ñ 42v ? "1 
3200 FOR J=1 TO 3 ИЗО. ソ タ ー ン キー を 
зва сЕ 馬 さ きく < て を し ! レ は うに な っ て し ます 
3388 FOR し =2 TO LEN(STR$(KK (0, M22) 
3250 BEPEAT FOTM. BnECAAGA ту 2008 
3400 IK$=INKEY$ (1) の ゲ ム 等 で は この 入力 方 流 が "7 言い いと 
3458 UNTIL (1K ま >"9" AND TK まく < く =" の") DR (IK$-"O" AND LENCDU ま ) >8> Bhn? 
3508 PRINT IK$; 
3558 DU$=DU$+IK$ 
3600 NEXT L 
3650 IF VAL (DU$)=KK (0, М) THEN IF J=1 THEN TK-TK*18 ELSE IF J=2 THEN TK=TK+5 
ELSE Tk-TK«34— "AUB dd 
3708 IF VAL (CDU) =КК (0, М) THEN "SEIKAI" 
icis ВЕЕР ラペ ル シ ジャ > フ * を 使っ 7 し ます 
3770 PRINT STRINGS (LEN (DU$), ÉH1D» ; ラム T* 
c NUN 7 HID に ク カ ー ジ レレ LI TOIT СНУ c» 


@ ご の フロ グラ ム は デー タ の フル ー ツ の 数 を 
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8 LASEL "SEIKAI" 

8 NEXT I | 

550 I ECES i 

Nub БЕКИР а } 得 点 出 力 
2858 LOCATE 8, 12:PRINT #0, $ТР$ (ТКУ: "ТЕМ $*24"; | 

4160 LOCATE 15,21:PRINT "727 キーラ лу"; 

4158 DU$-IMKEY$*tC1» 


4286 GOTO 1000 (С キャ ラク ター 護 英 を し て し | すす 

30868 REM — , —«T-600 | — C 1204 SUsd 
30020 DATA (5) 922°, #72, 7, チェ リー。 24m | AIP TLUI 107070575 22 & RIBUS Ca 

309940 РЕМ D. 


|3868 БЕК свз 65 о>-нЕхснвтс"йайааайаваавазаваоававаазствкккеаааайавіпійаагав”> 
3880868 DEF CHR 65 )-HEXCHR$("G88680808800180204GGB080GBGOSCFEFFFFaB8o2aaaGgaBiGnszoa") 
30100 DEF CHR$( 67 »-HEXCHR£$i"amBmaBaBaGcaaDnaaggGgHBFFFFFFFFFF7TFi1F80780808008BO0GGICÍIFG?") 
28128 DEF CHR$( 68 »-HEXCHR£/("88060808008888003800FFFFFFFFFFFEFC7eB88aagaganascsc78"? 
20140 DEF CHR$( 89 о>-НЕХСНКФ("ФроЙООООИОООООООООИОООИПаОО ОЕ ОЙ ЙИЙОЙЙЙЯЙІ15") 
39168 DEF СНЕФ 78 2<нЕХСНР%Ф"020408102040дайайаайипайайаййавтсібЗв?теЕЗзСЗавзйра" 
28180 DEF CHR$ )-HExCHRE$C'eSBaBcaagaaaecaaaaga7FFFFFF-FFFF7FSF2A65SAnssSaass2a15"5 
загйа DEF CHER まく )-HEXCHRS$(("aaagaaaagagaaagdaaaFEECFFFFFFFFFFEFCAASSAaasSaeassaass") 


38228 DEF CHR 72 3 -нЕхсывас"айайабайавваавасававапавававіатазаааоаоаайавіааз”> 

as6248 DEF CHES. 74 )-HEXCHR£("DgacaaDanOOOaODO2ESOTGFADADTDSDT2EPCTCFEFFFFFFFF "> 
30262 DEF CHR$( 75 !-HEXCHR£("GBüBBROGBBOBEBBRBBOFF7FBABOSFTF1EBIFFFFTFBT3FTF iF B1") 
30280 DEF CHR. 74 o-HEXCHR$i"8800088080GBODODB3?3977FDEACE3BC OFFFFFFFEFCFBF GC B "5 і 
38388 DEF CHR$( 77 2-нЕхСсНРьС"айдаваавававааоававвавдавайавваватайавайаййайій1т 

38326 DEF CHR$( 78 )-нЕХСНВФ("айайааайайзайаваоаагавоасйававаовозасаеавайтаеайавав"> 

38348 DEF СНЕФ( 79 )»-HEXCHR$("B80808GBBRaRBBROBBRGPROGOODRPTOFCFCTSO1020402G8n88280" 

38368 DEF CHR$( 88 »-HEXCHR$("88800606üGGaGaRaOOOODGBROBTSFCFCTBOSOB18100600808868") 

38888 DEF CHR£&( 81 ¥ =НЕХСНЕФ С"обаааававаававаававававааавававғаавааваайааавайза”> 

38486 DEF CHR$( 82 > =НЕХСНЕФ ("2898098 ВОВВОв ОО ВЕЕ ВОЙН ВОВВВИВ 1 "> 

39428 DEF CHR$( 83 )=HEXCHR ま ("GOGGRGGHBBG ロ ア F ЗОТРЕРЕЗЕ 1887088080304 9486 03882 "^ 

38448 DEF СНЕФС 84 )=HEXCHR ま て "BBBGBBGG ロ 7EF ロ FEDCFC7BE Я 880 1 01816020294 18ЕВ "> 

20440 RESTORE 38828 

S8488 READ К 

30470 H-K-1 

38588 FOR I-8 ТОК 1 CLEEOD REET 

38528 READ KN を SCI [ テー タ の BHI 58e5JIcCU cC 

38540 NEXT I 


(29558 FUR 1-25 TO 65+‹К+1)ж4-: STEP 4 — 林 越 の カー リル 移動 # 下 タダ // に と りこ が 
805806 — KDS(INT(CI-45)/4)) =CHR ま (1 1+1, &H1D, &HID, ВНТЕ, 1+2, 1+3, HIE, &Н1С> 
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385280 RETURN 
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PC-8801/8 


108 CONSOLEB, 25, 0, : m STOP X*—E&HPjtwSsTI-JUMP Lad 
110 STOP ONION STOP 50508 жыт 


120 SCREENO, 1: 
138 FOR H=1 ТО 
146 Хіс150жЫы 
150 Үісімтехіжа/6. 4) 

168 WINDOIN(-X1, -Y1)- OX1, Y1) ЖЖ ЕВЕЫ СС I 

170 PI=3.141529&5#:P=0:0=0:A=72:D=180/ZPI:FOR R=@ TO 358 STEP 3:T-R/D:X-UXCOS (T) + 
З0жС0О5 (VXT? : YzUXS INCT) -38XS IN (ОЖТ) :L INE (P +A, G*B5J- (+X, O* Y) :А=хХ:В=\у:МЕХТ R 

188 NEXT 

190 Us180xRND*16G 

200 V=INT (15XRND) үх 

218 GOTO1260 

220 XST 

238 U=100XRND+16 

248 V=INT(15xRND) | зтор+-® 
259 RETURN 


< X7 の CZS の て グ 


ター を 変え ます 


X18 CPC- 8801 814111) 


188 CONSOLE?, 25 
110 KEY1 ON:ON KEY GOSUB 220:60SUB 228 
120 SCREEN9, 9,9:CLS 4 « ` に 

130 FOR H=1 TO 4 スク リー ン を クリ ア し ます 
140 X1-2158»l 

158 Y1=INT (X15476. 4) в 
160 HIND0I (O, 8) - (300, 199), (-Х1, -Yi) - O1, YD Z ` 02-82 LET 

170 PI-PAICO:P-0:020:4-72:D-188/PI FOR R=8 TO 360 STEP 3:T-R/D:X-UXCOS (T) +30жС0 
$ (UXT) : Y=UXS INCT) -30XS IN (UXT) :L INE (P +A, Q+B)- (P +X, Q+Y) :А=Х:В=У:МЕХТ R 

180 NEXT "M = 

198 U=100%RND (15 +10 ス 2? ロク ラフ 的 図形 表示 (きす 

208 U=INT (15XRND (12) 

218 GOTO 128 

220 U=180%*xRND (12 +10 

230 り =INTC15RND (1) > БЕЗІ 

240 RETURN 


ファ > クシ ョ ン キ ー を 定義 と ます 


FM-'7Hi 


18 RANDOMIZE TIME/4 

28 CLS 

30 CONSOLE 60,160 

40 U=199*RND+19 

50 V=INT (1 5#RND) 

68 FOR U=1 TO 4 

70 X1=156*UJ m 

80 Y1=INT(X1#4/6.4) авс 
98 Х5=639/(Х1 #2) :YS-199/(Y1x*2) 
100 PI=-3.1415926#8:P=0:Q=0 :A=72:D=PI/180 
110 FOR J=9 TO 360 STEP 3 X10 WINDOW 
120 T=J%D:X=U%*C0S(T)+30*CO0SC(U*T):Y=U*SINCT)-30*SINCU*T) を た 77 で や ら せ 
130 X0=(P+ñ+X1)*XS:Y0=(Q+B+Y1)#YS:X01=(P+X+X1)%XS:Y01=(Q+Y+Y1)#YS:A=X:B=yY | ЭС. cala 
140 LINEC-X0x*(X0520) ,-Y9X(Y9>=9) ) -(-X91*(X91 >=9) ,-Y91x(Y91 >=9) ) ,PSET 

150 NEXT JW 

160 U=109*RND+19 " z Н 
170 U-INTCISXRND) 

189 GOTO 29 


= 


X1 HB (ЕМ-Т ЗЕ ЕВ МЕС) 


18 CONSOLE 8,25 
26 SCREEN ð, ð, а:СЬ5 4:50Т0 108 < 一 一 タク グリーン を クノ と ば 

38 CLS 4 
48 FOR Ы=1 TO 4 : 
Sú Х1=15йжЫ : 
68 Y1=INT <X14/6. 45 ч Е 
78 WINDOH св, 0) - C380, 199), (-X1, -Y12 - X1, Y1) 1207579 Rake Cath 
88 PI-PAI(CXO:P-20:G20:5272:D-2188,/PI:FOR R-0 TO 368 STEP |3:T-R/D:X-UXCOS (T) +3@жСО5 
QUXT) : Y 2UXS IN CT) -SUXS IN UXT : L INE (РА, BRIE - (P +X, G+ :ӨЗХІВ-Ү:МЕХТ R 

98 NEXT 

180 LUs108*RNDt15*10 

118 Y=INT(15SRND (122 Jess cm НЕСЯ 


128 GOTO за 


С FM-7 


ERASE 
ON TIME GOSUB 
TIME ON 

OFF 
STOP 
HELP ON 
OFF 
STOP 
ON HELP GOSUB 
ON STOP GOSUB 
INPUT WAIT 
ROLL 


( 表 1)X1 に な い コ マン ド 


と ステ ー ト メン ト 例 


UNLIST 
ERASE 
PRINT a 
SYMBOL 
GCURSOR 
ON TIME GOSUB 
TIME ON 
OFF 
STOP 
ON INTERVAL GOSUB 
INTERVAL ON 
OFF 
STOP 


( 表 2) 移 殖 する 際 の 変更 点 (比較 的 容易 に で きる も の を 集め て いま す ) 


コマ ンド ・ ス テー トメ ント お よび 関数 | FM-7 の 表記 | PC-8801 の 表記 | X 1 へ の 移 殖 法 
| 
CONSOLE スク ロー ル 開 始 行 , スク ロ | CONSOLE スク ロー ル 開 始 行 , スク ロ 一 部 分 を と る (これ で 動か な い 時 は あ 
CONSOLE ー ル 行 数 。 ファ ンク ショ ン キ ー 表 示 ス イ ー ル 行 数 , ファ ンク ショ ン キ ー 表 示 ス イ きら め て くだ さい ) 
ッ チ コシ ジー ルカ ラー スイ ッ チ ッ チ , カラ ー/ 白 黒 ス イッ チ 
_ Е E | 4 
COLOR COLOR (パレ ッ ト コ ー ド , カラ コー ド ) PALET パレ ッ ト コ ー ド , カ ラー コー ド 
=== = P - = ニー コト 
CLS n m d 
n が | CLS 4 
n が 0 Ее ИМТ :CLS 4 
CLS | 
| Е T 
CLS n 
p di n が 1 あるいは 何 も つ か な い | CLS 
— = = ーー ーー 
LOCATE LOCATE X, Y, カ ー ソ ル 表 示 ス イッ チ | 部 を と る 
PSET (X, Y, C, 機能 ) - 部 を と る 
PSET ーー I 
— 
p PSET (X, Y). 6 PSET (X, Y, 6) 
e m L | | 
СОММЕСТ СОММЕСТ "m LINE 
| ニュ ニッ ント z - 
А, _B の ラジ アン 表記 を 角度 に 直す 。 
FE Ú. A. B. ә; 
CIRCLE Wi "ag nr E CIRCLE (х, у), г, С, А, B, H 部 を と る 
， ORLE ОЯ, у), ғ, 6, Н, А; В 
VIEW ج‎ VIEW( хі, yi) 一 ( xz. у»), О, A WINDOW(x:, y:)—(xs,. ya), 
WINDOW WINDOW(xs, y,)—(x., у.) (хз, уз) —(Ха, ya) 
in = T = 
BLOAD n i BLOAD LOADM 
> ШЕ асай | ] 
BSAVE p BSAVE SAVEM 
—_ L 
INPUT WAIT == == INPUTWAIT 部 を トル 
LINE INPUT “АВС” ;AS “АВС”, AS と いう オペ ラン ド は 同じ 。 
LINE INPUT 画面 表示 例 ABC XYZ が * で 囲ま れ た 文字 も 一 緒 に 変数 に 
ーー 部 分 は AS の 内 容 入る と ころ が 大 きく 違う 。 ABCXYZ が 
AS 
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YN 
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, 6€ ж WF ri c tcm с ч 


r H E “~ 


B m vc N 


設 上 T+ wow 1 定 源 + 
ел fh u 2 X Y 2 Ú T — > Ж 
br c W ow д X d UR d F A E 0 
#] で て 15. JJ UE Ub. ° H БЕ qu [x の 
を 7 ^ И @ 1 ° 3 AH EHR 
表 ナ る + С | この 行 降 が 直 時 が 面 
ко L R 640 こ 後 目 が 表 後 刻 並 は 
L Z “ キ 人 分 に ろ の 時 示 の 表 ん 号 
С t | ORE MS 2 KT N 
ks 2 » < AS) £ 2 J ERP ет 
る ジ ӘЛЕН |І 1 УН YEE © 
A る v t Je» oF の 2 п iE 
左 ル と 38 ix ow um» ax は う 
Ë > か 次 定時 が = め Е n d 
2 gj b Шо で 間 м も の 画 本 ñ 
ІСІН 面 き を X v А 面 (K 
在 か B = `S. ue FE 2 て の < 
時 ら 分 101 れ て シセ uc 電 の 


.. B; جه‎ AA: DD つつ >% 
774 39722 22:05:55 T'2s 


эн キョ | эт He 


タイ マー と 言え ば 、 古 〈 は 日 時 計 、 砂 
時 計 、 ス トッ プ ウ ォ ッ チ 。 目 に 見 え ぬ 
* 時 ? を 刻々 と 形 に 表わし た 人 類 の 知恵 。 


協力 : 石黒 コレ フシ ョ ン 保 存 会 ・ 東 急 
ハン ズ 渋 谷 店 ・ キ ディ ラン ド 
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EDU 19 
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WIDTH88:CLS 

PRINT:PRINT"5?729*4 2°32 "iTIME$;" 5*2. ":PRINT 

PRINT:PRINT"2427- ノー ジカン フラ tuk シテ 297944! 時 間 の 入力 を 行 な いき す 

PRINT: INPUT "ナン 分 コ "ニセ ッ ト シマ スカ ? (1-640 өсім 

IF M<1 OR М>648 THEN 40 а 

CLS4: SCREENO, 0. ALINE ‹0, 139) - (M- 1, 179), РЅЕТ, 3, BF :CS IZE3 y 757 EET LIJ 

TIME-1:LOCATES30, біРБІМТЕЙ, "リフ コリ シド カン "iM; "A"; 

‚ TIME$;:IF TIME MOD 48-80 THEN GOTO 148:ELSE 88 
ВЯ: 78 3 

COLORS:LOCATE20,10:PRINTHO, "ККП 2*32*"2 !!"i 

АТЕ&, 20:PRINT&8O, "ЯК э トメ ルト を nN RETURN t- э オシ テク ドサ イ 。 "COLOR 


文字 あめ / あ 大き くし と まず へ УФОЖИЕ-НЕВЖЕ-Е 49 3503. t-L8 
MUSIC"EB8ABEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEASR?R?R?9 " ノー マル に し ます 
IF INKEY$-CHR$(13) THEN END ELSE 120 て 斉 を な らし ます = 


М=М-1:1Е М<-й THEN 98 
LINE (M, 180) - (M, 199), PRESET 
CSIZES:LOCATEAó, à: PRINTHO, М; "Я s | 8727888465 839 
FOR I-1 TO 3080:NEXT:GOTOS6 
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MIDTH49:CLS r 1789 82 
CRT1:COLOR? Р 
PR INT "ヒョウ シド シラ イー メ ウ セー シド ラニ ウチ コン テ ド フク 


LINE INPUT A$ 
IF LENCAa$»»28080 THEN PRINT " モ シ 


„Г: 


ペー Ag) 


Wn. 
reru 
ES 


БЕЗ, ( 


exer ioci os 


ー ャ ーー x 
„чы 


st 


© 


Sum 
ec 


ーー ヤ ささ で ヾ て Nmー ヤ 


,OX A CY Sb e (4 өз 


и п NI 


Ss 
.) 


Eom. 


түк 


43% 
Ty • ДЕЧ 


(+ 


l 
い 
L^ 


A$=A$+SPACE $ (20) :А$=5РАСЕ$ (20) +А% 


PRINT:PRINT"Ea3?2"2).) Dy カン カク ラ 
PRINT: INPUT" 28 カン カク FAD 2%; 
PRINT: INPUT "モジ / 4ün ナニ イロ 7 
IF C<1 OR C>7 THEN 188 
COLOR C 

CRT2 

Т-ТІМЕ 

CLS 

IF ТІМЕ>Т%5 THEN178 ELSE 168 
CSIZES 

L=LEN (A$) 

FOR I=1 TO L-26 
B$=MID$ (A$, I, 20> 

LOCATE, 28:PRINT#0, ВФ; 

FOR J=1 TO 1000:NEXT 

NEXT 

5070140 


り ) 


+ 本 
9 


T š š ~ КОКЕ ЖАК, " E "^ c 
KBIR LSH vO К-Ж aa r s ^ A MUN RE 
A QPR? End юмора 


* $ 
eM TAN OY wv, ны Sea h> Rae" Dair MESES n e 4 288 
225 


Mig EE E аа 
SHEROZ e === 


OU... мот O Pp HEH 13900 
ISU UI fg Же! HO ^ қа? 


出 。 


e€ 5 
2% 5 
кае оз REMO GHEE ИН 
Ph 2$ ЖЕ(П\ “қық. つつ ルーズ マ ペ 
° 
ТІР 3 > Kyr ЖА ) OTHERS арала Q0 ааг 
по TM VUE 
та" И ЫЕ о° АЕ 12 6 оо (N п AS 5 -6 9) 
11 r 
PR МЕС ШӨБОМ--<с GUE 
5 Ж Г 
< ° د‎ 一 > 
аб зо? (Ш. 40-4) ОА Roda S X > р 


V 


B» 
2 


R4 GESE Ее QU ` + x < ARIAT с. 


1 


ウレ 


+b HW Ч пх NF ANTES. - sQ° «НЕК Am キー ペペ 


「 お 母さん より …… 
n 


上 
(5 


Snax DA М 00° (ШК. а) а Ар он 
А 
: um ° qk ШЕ 


ーー コメ с с х „ә 
Но е6 ^ р Аас X 
へ へ リン нш へ 

мА НЕЕ で ROR 
ЖА ROJA HNO 


VLLL EG КО nd — REE 
КОНЫЕ ( 
5, GT nto 5 
olini ono Bd 
Hg SE «о? 

eG EE 
IPO AE 
a’ TKK < |у m 
=+ M STK NK 
^^ OFF IAP 


K. — DM 


協力 : RJ NAAR 


103 


x 
1 
1 
г 
š 
A 


س 


eee font her Дея nnn eee eee Дони lee Дон Даны 


) ТЕЗ 


| 


PT 


RT ase RT RT asan 


РЕ, ， 


ka 


FEK Wes と と て 設定 


B 


EBE 


ж 
INKEY ま と ーー ネー ホ 


К 


P TÉ 


M-S 
ELS 


дно фи и День ын Дон |, ене Дню Дон Дони 
9 


= 


— Дан 


38 PRINT" う イマ ー ラ セッ 


48 K$ 


$ 
=] 


20 


қоз 


ELSE IF 
qma» QU." 


ED'S Ал Sih 


` 


THEN 


е 


58 IF КФ= "ү" 
る 9 РКІМТ "779 


Е 

Ж 

№ 

d 

% 

ж 
s= 


Xvt-r 8 を 入力 (きす 
":COLOR? 


| ВОЗ Я 479059 


LA. 


AnD 
‚э AYAI 


ITA” 
数 
“Ra "SPRINT 
25594." 
2372 
府 を な らし ヨ チ 


s 
т 


jT 


呼び 記し て ます 
(255жу” 


を 
P; 


P 
5004523 
17!!a37 

uU» $33 

L. 


と た 
x 


し た 


" 


373 


E 
ND E 


COSI "YM 


(0-23»" FT 
(0-597 "4 


E 


28 


ы 


2 
? 
m 
Е 


ы 
- 
を て カリ ば す 


) ВТО ту 94701189 
258 ТОРЫ ON:CRT 1:901» 8389 2 413-71 CO) QS Е Audi d 
THEN END 


z 
TH 


3 
キー ホー ド の ら 入 力 
スル 
“ал 
“я? 

“ял 

P 


フサ ドイ 


PR INT "に ョ ウシ ド 


20 PRINT: INPUT "726 


7 

23 THEN 128 
z 

S? THEN 148 
т 


27 
Ш We 
> 
"ナン 合 
> 
リ 
PRINT A$ 


СНЕФ (135 
CHRS 137 


VAL (LEFT$ (TIMES, 2»»x3éü80€*UAL (MIDS (TIMES, 4, 2) KEBHVAL (RIGHTS (TIMES, 22) 


200 PRINT"33*473 


S< OR S2579 THEN 160 


Tx3600+MXx5 0+5 
INKEY$ 


IF ІМКЕҮФ 


1 


284 COLORé:LOCATE0, 29:РАТМТ"ЯК 2 トメ ルル トキ n RETURN +t- 3 Tz722"'t4(&, ":COLOR?7 
a 


290 MUSIC"'1504CS5EG*CRS" 


68 CLS:PRINT N$:i:COLORS:PRINT" 
зө 


218 FOR 1=0 TÜ 10000: МЕХТ 
278 LOCATEQ, 10: 


228 ТОРЫ OFF. > テレ ヒビ の 
238 IF 日 <TIME THEN 2 
318 MUSIC"M15 ロ 4 +C5GECRB" 


70 PRINT:LINEINPUT N$ 
3 


S0 ЕНІМТТРИ22 Әтеш” 


9й 
248 IF ВОТІМЕ THEN 248 


108 

110 PRINT: 

130 IF T«8 OR T 

148 PRINT: INPUT 

150 IF ММӘ OR M 

16а PRINT: INPLT "72% 
1708 IF 

188 В 

198 TIME 

20 


e 


1 


> 


мор Ss Rt 
ШЫ Бк ло оо 2900-0 
‚бїз MUU RIE ХӘМ АДА 
لالد‎ so? 

NAW ба mommu 
UMS U ge" LUE | 6 
ҚАМТЫ SS. ZPuoOO- 
GIRANE ме’ GG QR 
KN マー で < で で や の "ドー ベー で 


мм МК КЕ 
Woo ay Ук 
ЗРО КАК дкп АХ ә С к 
= мк к\а ОЕ 


жо SL RIE ペペ eR 


< 55277 BESSER e not x 


Ses o SSO 5S Sie eh — NEL aigu 


RH‏ نل 
М А-К GRRE‏ 
KIRO | ER’ OS‏ 


Алиби" < 
Q-—O0Gn-tLiz/^ ү лП уш 
リー っ うち で & Ç $< соо 
ЖА весел 
SHH ау шу RES WILIM 
КАКОЕ 
өзәр” 5 N H МК Up eS. N 
nikik SN セー 公 ” Np 
aeo RAUS Gr RHEL 
HORUS ос 


UD gO 4A R4 EPIS TL 


ARI K ^X у cp 


mH молоде 
SUDEM 
9 ЕСЕ кы SIM 
сыны t ANOS: 

ж 
-ә АСЫУ Ом м у 


HERES ERROR оско! 
NS 


КАКА Ç ÛU 704г) 

Ф ПЕ-Р ло 25527 

(hk 3 EE STR) 

OHEAK беор \ә 
Sa sn 
Фи 5-22-95 UIA 

БИ поно s, Cos 
SSW мс A а-о 
19-а 

w nAuWd—mBEGQRBIMM E) 
WESE 0 TS 
АУ УКАЗАВ, IMS 
KEEK 入 лыс?” Е П 
Ы ы а, 22 с 
eom Е OH ло Goss 
CAES He НӘЗ ӘС Jn 7, 
тысы? 

SR WN—X——AX—KI ЕЕ 
УКМА ( 〇 ロー の の ご らら ) VRE 
りう っ きっ っ De 5? “4 C SGS SONIS 
^К ТС aio 
m <= RN TKR N ua 
RUR Kー ベ ペー で へ ポー 人 KK asto3 も か 
$5657 0G 8 Ж ШУК N< 
серии оо!" meri 
ВАА 
go IDR ND H N n — ° 

ТХПА-ЖКАУС 2 5222 
NK Аз-ӘӘ де 


ودر ہیی لد کچل Е‏ 


104 


I 0 ホー ト の 基板 .10 ホ ー ト に 
つい て は PIALR ЯВА 7- VA 

F や G、H な どの カー ド を 本 体 
に 接続 する た め の 基 板 で す 


カセ ッ ト と F DD 以外 か ら BASIC を 読 
み 込 むための も の で す 

カセ ッ ト 使 用 時 は 、 ス イッ チ を 入れ る と お 
な じみ の 1PL が BAS1C を 捜し に 行き ま 
4. F DD を 使っ て いる と き は 、 ま ず FDD 
に 行き ます 

それ が 、 こ の BASIC ROM を 積ん で 
いる と 、F DD を 使っ て いな い 場 合 、 つ まり 
nts "m à カセ ッ ト だ け の 場合 は 、 す ぐ こ の BASIC 
ЗЕ ТЕЛІМ R 0 M を 読み 込み に 行き 、 そ の 後 BAS1IC 
R 0 M の フロ グラ ム を モニ ター 上 の R AM の 
方 へ 移行 し ます 

た だ し 、 こ れ を 使う と カセ ッ ト か ら の B A 
S 1C 呼 び 出 し が か わり ます 。 市 販 の ゲー ム 
で よく 1PL モ ー ド か ら 呼 び 出 し て くだ さい 、 
と いう の が あり ます が 、 こ れ を 積み 込ん で い 
る と き は C キー を 押し つつ 電源 0 N. 動作 す 
る まで 押し 続け て くだ さい 

( 注 写真 は 初期 の 製品 に つき 、 現在 の も の 
と 若干 の 違い が ある と 思い ます 。) 


| 


高 分 解 能 の グラ フィ ッ ク を 出す た め の グ ラフ ィ ッ ク を 
X | で 表示 する 時 に 用 いる R AM ボー ド で す 。 標準 装備 
され て ませ ん の で 、 価格 等 に つい て は “周辺 機器 カタ ロ 
7" (|40 真 ) を 見 て くだ さい 

これ | 個 に Red、Green、Blue 、 各 I6KB (キロ バイ ト と 
読む 。 1K 10 3bit) て 合計 48K B の メモ リ 容 量 が あり 
ます .。 こ れ で 、X | の 1 画面 、 す な わ ち タテ 640( ドット) 
xaa200( ドット) の 8 色 表 示し て いる 画面 | つ を 記憶 
し て お く こ と が で きま す 。 ヨ コ が 40 文 字 だ と 2 画面 で す 
ここ に いっ た ん 画像 が 記憶 され 、 そ れ か ら 外 部 記憶 装置 
に メモ リー を 移し て いく わけ で す 

また 、 こ の グラ フィ ッ ク В A M ボ ー ド は 本 体 用 の 記憶 
容量 に も 使え ます .^ 本 体 に 内 蔵 さ れ た ディ スク ” の よう 
な 感じ で 、 そ の メモ リ を 使っ て 画面 表示 の ほか 、 ブ ログ 
ラム も 記憶 で きま す 

そう し た い 時 に は カセ ッ ト の 場合 で す と 、S A VE は 、 
SAVE "CASO:--- ^ GOD RES. これ は ぞ の C 
AS 0 の と ころ を 、ME M と し て や り ま す 


Ра 
f 
7. 257 


ee S A 


本 体 基 板 

りり サウ ンド I C 

X 1 の 3 和音 や 、 合 成 彰 は ここ の 1 C が 組 
み 立 て て いま す 

2) キ ャ ラク ター ジェ ネ レ ー タ 

文字 の 形 を 覚え て いる 所 

た と えば A と いう キャ ラク ター の 信号 が 送 
られ て きた と する と 、 そ れ を フォ ント (ドッ 


ト の 構成 を 方 眼 用 紙 に し た よう な も の ) OR 


に 直し て Z 80A に 送り 込ん だ り 、 そ の 逆 に 
2 _80A か ら の フォ ント の 信号 を アル ファ ベ 
ッ ト に 直し た り し て いる 場所 で す 
31 OMIC 

フリ ンタ ー や F D D の 接続 時 に 各 外部 機器 
を 管理 する 1C 

これ に よっ て Z--80A は 外部 機器 と 信号 を 
や り と り し ます 
4 時 計 用 1C 
電源 を 入れ た だ け で 、X p が 番組 予約 で き 


漢字 ROM ポ ボー ド 


て の 使用 も これ で 可能 に な り ま す 


る ボー ド 


る の は この 1C を 積ん で いる か ら で す 。 こ の 
1C は 小さ な 電池 入り の 時 計 の よう な も の 
2 週間 ほど タイ マー を 保持 し 、 正確 に 時 を 刻 
み ま す 

5 グラ フィ ッ ク RAM 接 続 ソ ケッ ト 

グラ フィ ッ ク R AM ボー ド を ここ に 差し 込 
み ま す 。 本 体 の カバ ー を ドラ イ バ ー で は ず し 
て 、 グ ラフ ィ ッ ク R AM か ら 伸 びている 短い 
ケー ブル を ここ に 入れ る だ け 。 簡単 で す 
6 | O ボ ポー ト 接 続 用 ソケット 

| 0 ボー ト を 本 体 に 差し 込む 時 に 使用 す 
る ソケット 

ТІРІ. ROM 

これ が ある か ら 、. X | は 電源 を 入れ た だ け 
で 、BAS1C フ ログ ラム を 読み に 行く の で 
あり まし た 
8 CPU Z-80A 

X | の CPU は Z 80A. 4 メガヘルツ の 
クロ ッ ク で す 。 ク ロッ ク は コン ヒュ ー タ の 演 


これ に よっ て 、 ビ デオ 編集 時 な ど に 簡単 に 漢字 が 使え 
87 655A. JI S 第 | 水準 を 含め た 3,707 種 の 文 
字 が 収納 され て いる の で 、 日 本 語 ワ ー ド フロ セッ サ と し 


写真 下部 の 4 つの 空き ソケット は 拡張 用 で し ょ う 


M! 2775 V.‏ ے 
a‏ اا 
ВАТ‏ 


フロ ッ ピ ー デ ィ ス クイ ンタ ー フ ェ イ ス 
フロ ッ ピ ー デ ィ ス ク ド ラ イブ (以下 頭 文 字 
を と っ て F DD と し ます ) を コン トロ ー ル す 
(基板 ) で す . 


算 速 度 を 表す 単位 、 4 メガ ヘル ツ の マイ コン 
と いえ ば 、 初期 の ユー ザー に と っ て は 、 ま さ 
に 驚異 / だ っ た も の で す 。 パ ソコ ン の 技術 革 
新 は 早い も の で す 

CPU は いう まで も な く 、X 1 の 中 枢 。 メ 
イン の 処理 は すべ て ここ を 経由 し ます 
9 本 体 用 RAM (64K バ イト ) 

本 体内 に フロ グラ ム を 保存 し て お く た め の 
R AM で す 。X | は は じ め に BAS1IC を 読 
み 込 ませ る クリ ー ン 設計 を と っ て いる の で 、 
同 梱 の カセ ッ ト ベ ペー シック て 40K、d B ベ ペー 
シッ ク で 32K、 デ ィ ス クベ ー シ ッ ク て で 44K の 
メモ リ が と られ ます 。 し た が っ て ブロ グラ ム 
で きる 領域 は それ ぞ れ 、24K 、32K 、20K と 
いう こと に な り ま す 

フロ グラ ム す る メモ リエ リア を た くさ ん と 
り た い 場 合 は 、 デ ィ ス ク や 、 ブ ログ ラム や デ 
ー タ を 入れ る グラ フィ ッ ク R AM を 利用 し ま 
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597 OCT B tN THR SI UL 
C РН әкән) 7, S КЕТҮ 5$ Xe の 


HS оз)? 


ер tho SH US Ж 


ЕСІ! 
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基 二 的 に ば PCGER v7- C EC CS 


18 SCREEN9, 9, 9: い IDTH89 

ер ELSA | уте калвтоязкклл Ut 
За X=1:Y=1 

78 CLS 

75 GOSUB 10088 

80 FOR 1-0 TO Хж40 STEPS 

90 LINE CI, > - CI, YX40?,PSET, 1 しき マズ 月 る 表示 と きす 
188 NEXT 

118 FOR І-й TO Yw49 STEPS 

128 LINE(8, 1) - (Хж40, 12,Р5ЕТ, 1 

138 NEXT 


188 IF &$-"C"THEN GOTO348 

1?8 IF A$-"L"THEN 60518678 

IF Өж-"! "ТНЕМ GOTOS168 

IF ASC АФ) >27 AND ASC (A$) <32 ELSE 160 

LINE (0, (0-1) x5) - (XX4 0, OS PSET, 1, B 

LINE < (P - 1215, O? = CPXS, YY48 FSET, 1. В 

IF A$=CHR$ Z2? THEN Р=Р+1:1Е PPX THEN Р=Р-1 
IF АФ=СНЕФ 129) THEM Р=Р-1:1Е P«1 THEM Р=Р+1 
IF A$=CHR$ (30) THEN Q-Q-1:IF Q<: THEN 已 =Q+1 


= 


m m O m 


m 


カー ソル を 移動 きす 


= Ds (Л L لرا‎ PQ <+ cs 
e 


148 Pz1:Q-1:LC-7 

158 GOSUB27?8 

158 АФ=ІМКЕҮФ 

178 IF ASE A$? >47 AND ASC AE CGS THEN 50548328 キー 入力 る 受け 7 サ け ます 


iu pa а po P9 pa P3 mr M po ГҮ] 


БОСАТЕЗ Я, 23: INPUT {32 カラ 255 77°)"; 
IF CC4«8 OR CC?255 THEN CLS RETOURN 


うり リナ タゴ オリ マス 。 EPAF イレ ナオ シテ 29994.":G0T0368 


390 CLS:LOCATE0, 23: РРІМТХЖУЖЕ: " $ Ah" FFI YA." 
agg Yisi:" FDR Y1=1 TO Y 

4180 Xis1:* FOR Хізі TO X 

арй Р2Ф-" "tG2$-" n :Е2%= ин 

428 FOR TO & 

сай a =" " EE и :В%=" n 


FOR X2-1 TO 8 
CEPOINTCOXE-1)X4B4X2x5-2, (1-1) жай+ү2ж=-2) 


в + 
D. Cn 
"m oc 


478 IF C-8 THEN R$-R$«"O":G$-GS«"B":BS-B$«"Q" 
ава IF С=1 THEN R$-R$*"0":G$-G$«"D":B$-Bte" 1" 
490 IF C-2 THEN R$-R$*"1":G$-G$«"0":B$£-B$«"à" 
500 IF С=З THEN R$-R$«"1":8$-G$*"0":B$-B$«"]" 
518 IF C-4 THEN R$-R$*"Q":G$-G$*"1":B$-B$«"Q" 
528 IF C-5 THEN R$-R$«"0":G$-G$*"1":B$-B$«"1" 
538 IF C-á THEN R$=R$+"1":G$=G$+"1":B$=B$+"0" 
548 IF Се? THEN R$-R$*"1":6$-G$«"1":B$-B$«"1" 


550 NEXT 

Séü R1$-HEX$(VAL(GC'R&B"-R$525»:1IF LENCR1 ま まう =1 THEN R1$-"0"«R1*$ 
578 G1$=HEX$ (VAL ("&B"+G$)):IF LEN(G1$2-1 THEN 61%-"6"%61% 
58588 B1$9-HEX$(VAL(C"&B"*B$25:IF (ЕМ(В162-1 THEN B1$-"0"«B1*$ 
578 R2$-R2$*R1$:62$-G2$461$:B2$-B2$4B1*$ 

500 NEXT 

618 R3$-HEXCHR$(R2$):G3$-HEXCHR$ (62%) : B3$-HEXCHR$ (B2$) 

620 DEF CHR$(CC+ (X1 -1) + CY1- 1) KX) -B3$*R3$*63$ 

өзе GOTO838 سے‎ 


640 X1=X1+1:IF X1>X THEN 650 ELSE 4260: * NEXT 色 の ソス た を 表示 と ます 


$50 Y1=Y1+1:IF Ү1>Ү THEN 660 ELSE 418: NEXT 


й IF &$-CHR$O1» THEN 9=0+1:1Е С>ҮжЗ THEN ロロ = ロー1 
36 GOSUESTG:GOÜTO1668 
?B8 LINME4C(OP-12X5, 82 = iPS, x40», FSET, LC, B 
зай LINE 0, (0-1) ж) - OCk4 B, D5), FSET, LC, BtRETURN 
SOTI 
IF し C= いし (A$) THEN LC-LC-1 ELSE246 Kix- NPN 
IF LC<á THEN LO=7 の パレ ッ ル コー だ て "パイ ン / た し ま ブ 
i GOSIISZ98:PAÓINT:exS-z,Gw«5-z».'JAL (A$). LC 
RETLRN 
ГОСАТЕЗА, 22:PRINT"t*rvr222-3-h^ 2 ナー D А+ シマ スカ マリ 


IF DC*£X-1»0 *CY-12xX8»5255 THEN CLS:LOCATEO,22:PRINT"7/ 22° ANT FEAF DILE 


キャ ラウ 


7 


i 568 CLS:GOTO12?8 i 
i 67 CLS:LISTó?8:CLS:CSIZE2 } 
H <sa FOüRI-GOTOS9:LOCATEIX2*180, OG: PRINT&O, CHR$ (48 +1) : NEXT : 
Е ら ァ 9 FOüRI-ZSTO25:LOCATEG&8, I-1: PRINT&8, 1X18; : NEXT ғ 
T 786 СЕМ! = 
š 718 FOR 1=2 TO $ Н 
š 720 LOCATEIxX2*10,2:PRINTHO, CHR$CI4*38)5 : NEXT H 
i 730 FOR J=4 TO 24:FOR I=8 TO 9 i 
d уай LOCATEIX2*10, J-1: PRINTHO, CHR$CLIEPXJ* I? : NEXT: NEXT Я 
f 750 FOR Is8 TO S Ғ 

760 (ОСАТЕІжЖ2%10, 24:РРІМТЕЙ.СНРФ(1%2502::МЕХТ Е 

778 CGEN8:CSIZEO r 
Ы Я LOCATE40,12:PRINT"€hN- モト Sk ト kn Hit [RETURN] Key !!" 


= ل“ 


© 


АФ=ІМКЕҮФ: ІР АФ=СНРФ (13) THEN 3800 ELSE7?*?0 

SCREENO, 8, 0: CLS: RETURN i 
CLS:LOCATE0, 23:PRINT"t?54*h" ロジ シド メカ ラー リマ スカ ? CY or HN)" Х%-НС ұ 
АФ=ІМКЕҮФ: ІР A$="Y" THEN 20 ELSE IF A$="N" THEN С15:65070210 ELSE は 29 DEF t 
LOCATE. 24: Ігі r 
Û PRINT 16008+ ‹СС+ х1- 1) + (уі - 1) жхужій; "DEF CHR$C":CC* CX1-715 + (Y1-1%AXE "> = "s "HEX š 
$ C" CHRE (34) +B2*$+R2$+52#*+CHRER* (34); "2 "PRINT T4335 Bf を 
Пп ГОСАТЕ@, 23:KEYO, CH P$ (30) +СНЕФ (30) +СНЕ$ (13) + "бОТОЗ6а "+СНК$ (13? :END ЕСИ H 
8 cOTOó648 


O = cx 


) GOG c 0. (n T pp. 0) N - @ 0 
] = 


қа Pe ата ыз ка ыл ке эл c8 (0 @ С) О 0 (CO 0 0 


: REM COLOR бата (07-9 f 
DEF СНК$‹ 32 )=HEX じ HR ま (て "FFFFFFFFFFFFFFFF АЙ ОЙаАПАйайайдайайайайаййайайай"> г 
- DEF CHR$( ) :HEXCHR$("aaaaagagaaaagaaaaFFFFFFFFFFFFFFFFaaaaaaaaaaaaagcaog") E 
DEF CHR$( 34 > =HEXCHR ま ("FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF999999999999999" ゝ i 
a DEF CHR$( 35 »-HEXCHR£$(("BB668a0B0GaO0GGaaaaaoaaaaaagaaaanaaaaaaFFFFFFFFFFFFFFFF") 
i 2 СНЕФ С 36 J =HEXCHR ま て "FFFFFFFFFFFFFFFF ӘОддаФзайа а ФФФЙӘЕЕЕЕЕЕЕЕЕЕЕЕКЕЕЕЕ "> 
r СНЕФ С 37 )=HEX じ CHR ま ("Bd99999999d9 ロ ウロ ロ FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF『") 
CHR$( 38 )-HEXCHR$("FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF "> 
r CHR$( 39 ›=НЕХСНЕ®С"@@й@йййй@ййййбййййбййййййайаййййбййайбййййбйййаййбайаййй”› - 
š CHR$( 48 > =НЕХСНЕФ (C"eesSAASSAGSSAAGS5500006088880806008000080000080800808080880") Li 


* 
A нуі. жж, 39 
在 も 東京 の 下町 で みか 


ける 。 劇画 の ルー ツ だ 。 
パソ コン 世代 の きみ は 
パソ コン て 電気 芝居 ? 


協力 : 森下 正雄 氏 


18418 DEF CHR ま ( 41 )》=HEXCHR 本 (6009809898006886AA5SAASSAASSAASSQ0808888009898896") 
10420 DEF CHR£$( 42 ) =НЕХСНЕФ ("e0GSSA06S566556655A655665566556655088888880080808808800") 
19438 DEF CHR ま (て 43 )=HEXCHR#*("@GB00808080808008088080080808880809800800808B06655665566556655 " > ғ 
10448 DEF CHR$( 44 ›=НЕХСНР$ ("AGSSAAGS5SS5A6S56565588888888888888885655A5665566556655 "> = 
18458 DEF CHR$( 45 )=HEXCHFE$("Ə9080B8088808B088888556SSAG5566556655665566556655868655 " > š 
18468 DEF СНЕФ( 45 ) =НЕХСНЕФ ("ААББААББААБЬБААЕБААЕБААББЙАББААБ5ВАББЙАЕБАЙБЫАА55 " > 
18478 DEF CHR$ 47 ) =HEXCHRS ("SSAGS5665566556666556655665566558008008080800808000800") 
18439 DEF CHR$( 48 )-HEXCHR$("FFFFFFFFFFFFFFFFAASSAÓnB55aassaas5agoagggacaaBGaGOO") 3 
10490 DEF CHR ま て 49 ›=НЕХСНВ$ ("SSAG5566556655668888080880888088888566556655566556655 " > Е 
105900 DEF CHRS$( 58 ›=НЕХСНВ$ ("FFFFFFFFFFFFFFFF080088888888888808A5ñ56SSAñSSAASSSAñSS " > š 
Е 18518 DEF CHR$ 51 )=HEXCHR$ ("SSAeASS5SASGSS5SAASSAAA66556655665566558686556655665566455 " > i 
18528 DEF CHR$ 52 )》=HEXCHR 直 "FFFFFFFFFFFFFFFFAASSAASSAASSAASSAASSAASSAASSAASS > 
$ 18538 DEF СНЕФ S3 )=HEXCHRE$("FFFFFFFFFFFFFFFFAGSS5SASSSAASSSASSSASSSAASSAASSAA55 "> 
t 19540 DEF СНЕФ 54 »-HEXCHR$(C"AASS5Aaa4s5aassaass5FFFFFFFFFFFFFFFFaaaapaaaagoaaana") 


eml an 


san] aen ae] mel ни 


TEZE 


med oe 


£ 18558 DEF CHR*< 55 ›=НЕХСНК $ с" BBBBB8BBBBB888BB8BSSASSSSAAS55A6G55A666556655668556655 "> r 
Е 18560 DEF СНЕФ (С Sé ) =НЕХСНЕФ ("SSSSAGSSAG6G556655556655665566556666556655SAGS556655 " ) E 
E 18578 DEF CHR$( 57 »-HEXCHR$("8888B8BGBaBDnaaGBaGBaGBFFFFFFFFFFFFFFFFAAS55AA55AAes55Aaa55") i 


18588 DEF CHR 58 ) =HEXCHRS ("AASSAASSAASSAASSFFFFFFFFFFFFFFFFAASSAASSAASSAASS " > 
13520 DEF СНКФ( 59 )=HEXCHR$ ("SSAASITAASSAASSAASSAASSAASSAASTAAAASSAASSAASSAASS " > 
18508 DEF CHR ま ( $8 > =НЕХСНЕФ ("SSAASSAASSAASSAAFFFFFFFFFFFFFFFFAASSAASSAASSAASS "2 
18518 DEF CHR$ $1 > =HEXCHRE С" SSAGSSAGSSOGGSSAGFFFFFFFFFFFFFFFFAGS5SS5SA6556655A655 "> Ғ 


T 18628 DEF CHR$ $= )-HEXCHR$i"AAaGSSAaeszaassaassasanaagaaaaaopaGOFFFFFFFFFFFFFFFF") E 
T 18638 DEF CHR$( $3 »-HEXCHRS$(i"08B8BOBGOBBOBBAaBGOBDBOAAaSSaass5aass5aass5FFFFFFFFFFFFFFFF "5 i 
18640 DEF CHR$( 44 D)-HEXCHR$("AAS5SAassaassaasseas5e6nass5aas56a5s5FFFFFFFFFFFFFFFF") 


19550 DEF CHR も ( 45 ›=НЕХСНЯ$ (“SSAASSAASSAASSAAAASSAASSAASSAASSFFFFFFFFFFFFFFFF ") 
I 10488 DEF CHR ま ( 48 )-HEXCHRS$("FFFFFFFFFFFFFFFFAASSAASSAASSAASSFFFFFFFFFFFFFFFF ") Я 
f 18478 DEF CHR$( 47 ) =HEXCHRS("55AA5SAA55AA55AAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF "> t 


£ 18880 DEF CHR$( 48 )=HEXCHR$ ("B222327232723222FFFFFFFFFFFFFFFFFBDE7BDE7BDE 7BDE "> r 
r 18690 DEF CHR$( 69 5-HEXCHR$(O"FFFFFFFFFFFFFFFFAAÓSSaassaassaassss5aassaassaea5saa") М 


12550 DEF CHR$( 255 )-HEXCHR$(C"FFDD83888C1IESF7FFFFFFFFFFFFFFFFFFFFDD8888CI1ESF7FF " 


z808658 RETURN 
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ђе een? SAVE キ や で シー Dez Ds 2$ (1!1iUU. то тото котен 
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onr ENN? ЕШ м ооо мМ 005 oot 1 
шыш? QI) отр ноо ^, Glo \ 
ФЕН ао NLS нА Ә-Ә RI CASO : 7 やく で や づい トド で 1 
گند( 4990 سک د ده م میدن‎ 1 
SAVE ОК? (Y/N) t s< 2D S Omar лон" 1 
олақ ANYA RRL 00° (E) や トー 回 っ や わる S ぃ GuSAVE% S i 
< 
8 = 
8 са 
а ч - 
8 に о. 
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т - “1 
4 "P 
о іт CY 
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ж кеш. dS 
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55 Z-z0:Z8-Z 


65 X 


8=-1:Yü=-1:I=0:X=320:Y=108 


78 505087806 
80 cOTOS386 


387 
зей 
395 
aan 
418 
428 
589 
585 
518 
520 


A$=INKEY$:X0=X:Y8=Y 


IF АФ-""ТНЕМХ-Х%1:1Е Х>639 THEN XzX-1 

IF A$="4"THENX=X-1:IF Х<0 THEN X=X+1 

IF A$="2"THENY=Y+1:IF Ү2199 THEN Y=Y-1 

IF A$="S"THENY=Y-1:IF Y く 9 THEN Y=Y+1 

IF A$="4"THENX=X+10: IF X21637? THEN X-2ó397 

IF A$=" F"THENX=X-10:IF X<0 THEN Хай キー 入 カ を 判別 は ほす 
IF A*="+"THENY=Y+S:IF Ү>199 THEN Y=1 の の 

IF А$="т"ТНЕМУ=\-5:1Е Үй THEN Y-8 

IF &$-CHR$(13»THEN GOSUB3?7 

IF АФ= "Е "ТНЕМБ050836&9 

IF &$-"B"THENGOSUBS6868 

IF А%-"Ұ"ТНЕМбО5ИВВ00 

SCREEN, , 1 : GOSUB 10200 

60548181898 

LOCATESS, В:РАТМТ I;Z;X; Y 

GDTO18B 

I=I+1:Z=Z+1 

V<(I)=-1:k C1?) =8 

FOR J=1 TO I:X4Zü*J?-2UCJO : Y (Z8+J) =H (J? 

SCREEN,,3:IF J+1<I THEN LINE ЈУ, WJ)? - CUCJ 120 , WCJ* 120 , PSET 
NEXT:Z-Z: 1=@ : RETURN 

IF Х<8 OR X>632 OR Y<8 OR Ү2199 THEN BEEP:RETURN 
1=1+1:2=7+1:1Е 12108 THEN FOR Ј=1 TO 1980:BEEP: NEXT:RETURN だ ッ ト よど ッ た の ルー チン 
VOI? =Х:Н (I) )=Y 

SCREEN, , 2: PSET (X, Y> 

RETURN 

COLORS 

LOCATESS, a: PRINTI:Z 

Y$2INKEY$ 

SCREEN, , 2: IF Y$-" "THEM PRESET/(WM(CID,MWCID):I-I-1:Z-2Z-i1:IF 158 THEN 1=1+1:2=7+ 


1 : BEEP ЛЕЗЬ 


530 
548 
S848 
818 
828 
838 
832 
834 
835 
838 
840 
85а 
851 
852 
853 
855 
857 
840 
870 
875 
880 
?й@ 
?1@ 
920 
930 
948 
741 
942 
943 
958 
755 


IF Y$-CHR$(13) THEN COLORT:RETURN 
бота 585 
PRINT:PRINT"Save OK 2 (Y/ND" 
Y$-INKEY$ 
IF ҮФ-"М"ТНЕМ CLS:RETURN 
IF Y$«4»"Y" THEN 818 
=I+1:Z=Z+1 
V(I) = ニー ジミ KT) = ロ 
FOR 7-1 TO IiXCZ9+T) =U Ст: В+ =i ср 
SCREEN,,3:1F J+1 く 7 THEN LINE (VCJD, WJ) - CU(J+15 内 くけ +1) ) , PSET ке 
МЕХТ:7@=7:1=й@ ТАТЫ а 
INPUT"File пате 2 (80° イナ イ ) FL を 2 
F さ =1 
FF ま =F し ま 
FF$=FF$+STR$ (FJ) 
IF FJ=1 THEN OPEN"O", #1, FFS:HRITEH1, Z:GOTOEGO 
ОРЕМ"О", #1, FF 
FOR Ј= (ЕЈ-1)ж200+ 1 ТО FJX200:WRITEB1,X (J, Y CIO NEXT 
CLOSE 
IF FJX288»-Z OR FJ-18 THEN 880 ELSE FJ-FJ«1:G0TO852 
CLS:RETURN 
PRINT:PRINT"Data load ? (Y/N) " 
Y$-INKEYS 
IF Y ま ="N"THEN CLS:RETURN 
IF Y ま <>"Y" THEN 910 
INPUT"File name ?";FL$ 7-4 LOADP し きす 
ЕЈ=1 
FF$-FL$ 
FF ま =FF ま も +STR ま て FJ) 
IF FJ=1 THEN ОРЕМ"1", #1, FF を: INPUTH 1, Z:GOTO9 40 
OPEN"I",#1,FF# 
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10210 LINE (X0, Y0-55 - (XO, \9+5>, XOR, 7 


182280 RETURN 
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хма о GC r Cu St 
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12 
LINE Code 3 атал? (A 


ШИЕ 


が 


Ше) Bata 2281793 I 3 Load 522, Load ж? (YAD 


Line data ? (9/0 


VO) Mta P F79 3m Save 57。 Save (C? QAO 
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TET 


ease] өө] se 


178 
200 
210 
228 
238 
248 
258 
268 
267 
278 
2889 
278 
Suna 

СҮ 
318 
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335 
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ort Jnnt Jtt en aane ent [t ant tt ent ent ett он nt t utt aen но anan nt tt tnt at anan tnt las ent kanar t ent law Дн lm tt Dat и енен le un 


OPTIONSCREEN2 

SCREENO, а, а 

PRMNB 

PALETO, 8:PALET1, 11PALET2, 2:РАСЕТЗ, З:РАСЕТЗ, 4:PALETS, S:FALETS, 5:РАЦЕТ?, 7 


WIDTH88:COLDR7, 8 
DEFINT А-2 
WINDOW C9, O) - (539, 1999 
KEY1O0N: KEY2ON 
ON KEY 505065009, 5900 
CLS 3 

I=0:Z=01Z0=Z:T=7:PK=0 

DIM X«i28805,Y(2888»,P(24580»5,D(20. 160, PA (2800, 2) 

60508380 

X-3280:Y-2168:X0--1:Y8--1:G0TO148 

GOSUB1818080:GOSUB160260 

XQ=xX: Ya=Y 

АФ= ІМКЕҮФ 

IF A$2"$"THENXsSX*1:IF X> る 632 THEN X=X-1 

IF А%= "4"ТНЕМХ=Х-1:1Е X48 THEN X=X+1 

IF A$="2"THENY=Y+1:IF Ү>19? THEN YsY-1 

IF &A$-"S"THENY-Y-1:IF Y<0 THEN Y=Y+1 

IF А%= "4 "ТНЕМХ=Х+10:ІЕ Х>629 THEN X-X-18 эн ンー 
IF &$z"F"THENXsX-10: IF X く 9 THEN Х=хХ+18 * монета 
IF АФ-"--"ТНЕМҮ-Үж5:ІР Y>199 THEN Y-Y-5 

IF &$-2"TLT"THENY-Y-S:IF Y く 9 THEN \=\+5 

IF A%=CHR$ (13) THEN GOSUB438 

IF A$-"YX"THENGOSUB3068 

IF &$-"C"THENGOSUBó98 6&6 

IF Aà$-"P"THENGOSUBS398 

IF АФ= "Т" ТНЕМБОБЅЦВ 10190: БОЗИВ 159099: 6051810190 

LOCATESS, 8:PRINTX; Y; PK 

IF X8«5X OR YB<2Y THEM 130 

coTO148 

GOSUBSBO8O0:CLS:LOCATEB, 2:PRINT"^? (Zh Data ñ 3772 リノ ママ Save シマ ス 。 | Save OK >° 
мо " 

ҮФ=ІМКЕҮФ 

IF ҮФ= "М"ТНЕМ СІ5 : 5050684000 : RETURN 

IF ҮФ<>У"Ү" THEN 318 

LOCATEO8,4:PRINT"^*42^h DATA 2 SAVE テテ スカ ? (Y/ND" SAVE ルーチン 
ҮФ= ІМКЕҮФ 

IF ҮФ-"Ү"ТНЕМ GUSUB ウ の 999:CLSIGOSUBS989:RETURN 

IF Y$<>"N" THEN 337 

GOSLIB182008:LOCATE0, 4:PRINT"File name ? ":1_ ОСАТЕЙ, 5: INPUT FL を 
ОРЕМ"О", 1, FL*$:REC=0:PRISHFF:G6G0SU8SS9088 
DEUI$"MEM:",REC.à$,B$:PRINT&1, АФ: ЕФ; : РЕС=КЕС +1 
ІЕВЕС«ӘНСОТНЕМЗ60 ELSE CLOSE : ВЕЕР FRMB iCELS IPSET(X。 Y, 1) :CLS: GOSUB 78199IRETURN 
CLS:LOCATE0, O:PRINT"Line 2 Data ñ サウ セイ サレ ヲタ I 3 Load シマ ス 』。 Load О СИМ) " 
ҮФ= ІМКЕҮФ 

IF ҮФ= "М"ТНЕМ CLS:RETURN 

IF ҮФ<У"Ү" THEN 398 

ОСАТЕЙ, 2:РЕІМТ "_ іпе data ? (Y/ND" 

Y ま =INKEY ま 

IF ҮФ-"М"ТНЕМ GOSLIB389? 8: RETURN 

IF Y$4»"Y" THEN 438 

о name ?":LOCATE8, $: INPUT FL$ LOAD ル - チ ン 

=1 

FF ま =FL ま 

FF$=FF$+STR$ (FJ) 

IF FJ=1 THEN OPEN"I",#1,FF$:INPUT#i, Z:GOTO4S4 

ОРЕМ"Т", #1, FF を 

FOR J=(FJ-1)x200+ 1 TO FJ%20808:INPUTB1, ХФ», У СЛУ: МЕХТ 

CLOSE 

IF FJx200>=Z OR FJ=19 THEN 588 ELSE FJ-FJ«1:GOTO442 

CLS:J-8 

J=J+1 
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528 Y=X(J) Mi=Y (J? 
538 J=J+1 

540 UlsXQD 内 1=YGJ) IF U=-2 OR Uis-2 THEN Zü=Z:RETURN ELSE IF い 1=-1 THEN GDTOSIQ 
ELSE LINE (V, WD = (V1, H12, PSET, T: U=U1:l=HN1:60T0 536 

688 605185808: СІ 5:1 ОСАТЕЯ, B:PRINT"Line color ?":LOCATEB,2:1MPUT TT 

618 IF TT<@ OR TT»7 THEN 588 ss 

611 T-TT:GOSUB4OG8:GOSUB102908 Fa an 
612 GOSUB99 š 
628 CLS:GOSUB181080:RETURN 

638 605087888 

648 LOCATE48, 15: INPUT^k*^ / COLOR = 5727? (32-255) "PA 

545 IF PA<32 OR РА>255 THEN 648 

650 PA$="" 

668 FOR J=1 TO 8 

678 PA%$=PA$+MID$ (СбРАТ® (PA), J+8, 1) +М103 (СВРАТЗ (PA); J+16, 12 +МІОФ (СБРАТ (РА), J424, 
D қ К 
700 NEXT テト ルー チン 
718 CGEN1:FOR J=70 TO 79:FOR 1-8 TO S:LODATEJ, 1:РВ TNTCHR ま で PAY : NEXT: NEXT: CGENE 
778 LOCATE40, 17:PRINT"OK? (Y/ND" 

788 IK$-INKEYS:IF IK$-"N"THEN GOSUBéOBBR:CLS:RETURN ELSE IF IKS$4»"Y"THÉN 7890 

798 GOSUB10200:G0SUB&000:CLS:PAINT (X, Y>, РАФ, T 

885 PK=PK+1 

807 PA(PK, В> =Х:РА (РК, 1) 2 Y1PACPE, 2) =PA:CLS :BOSLIB4 ORO: 6050810100: RETURN 

838 GOSUBS000:CLSIPRINT"Printer Ok ?" 

840 IK$-INKEYS$:IF ІКФ= "М"ТНЕМ GOSUB&8BB:RETURN ELSE IF IK$4O"Y"THEN 848 

858 LOCATEO,2:PRINT"Copy page ? (0-4) ":LOCATEE, 4: INPUT РА フッ ルアウ た 
860, IF PA>4 OR PA<9 THEN 850 AN 
876 6050810280:505065908:НСОРҮ PA: BOSUE 16168 ルー チン 
888 CLS:RETURN 

898 ГОСАТЕВ, ó:PRINT"File пате ?":LOCATEO,8: INPUT F し ま 

9886 OPEN"I",H1,FL$:REC-ü:PRAAHFF:SCREENB, В, û 

918 A$-INPUT$(128, 1) :B$- INPUTS C123, 12 :DEUOS"MEM: " , REC, A$, BRSIREC-REC + 1 画面 全体 を 
928 IF REC<&HC@ THEN 918 ELSE CLOSE:BEEP:PRHO:CLS:RETURN LOAD L$ 
5888 ГОСАТЕВ, 1: COLORB:L I3T56806:COLORT:RETURN 

6888 SCREENA, 8, В: RETURN 

7868 CLS:LIST7000:CLS 

7010 FORIISOTOS:LOCATEIIX2410, В:РЕ ИЧТСНЕ (48+11) NEXT 

7828 FORII=3TO025:LOCATE8, L2 -1:PRINTIIX10: NEXT 

7030 CGEN1 

7840 РОВ II=2 TO $ 

7858 LOCATEIIX2*18,2:PRINTCHR$(II438) NEXT 色 の り ス た を 表示 (ます 

7048 FOR J-4 TO 24:FOR 11=й TO $ 

7070 LOCATEIIX2*418, J-1:PRINTCHR$(iGXI«II) :МЕХТ:МЕХТ 

7888 FOR 11=8 TO 5 

7090 ГОСАТЕТ!Ж2+16, 24:РР1МТСНЕ+ (11+258)  : NEXT 

7100 CGENa:RETURN 

9888 LOCATEO,8: INPUT"LINE COLOR № 72402 ジマ スカ 2 (8-TO"iCC 

98018 IF CC<@ OR CC>7 THEN F090 

9820 РАС, û) =-З:РА СВ, 1) =СС:РА (û, 2) -PK 

9188 ГОСАТЕВ, 12:PRINT"File name ?":LOCATEG, 14: INPUT ЕФ 

9118 OPEN"O", 1, РЕ 人 ント テー タダ & SAVE LET 


°2@@ 


FOR Is0 TO РК 


9218 РАТМТН1, РАСТ, 0), PACI, 12, PAKKI, 2) 


9220 


NEXT 


9236 CLOSE 


2248 


RETURN 


18188 LINE (X= 18, Y) - CX*18, ү), XOR; 7 


1811 


8 LINE XX, Y-55 - CX, TED? , XOR; 7 


18128 RETURN 


1928 
1821 
1822 


8 LINE (X0-10,Y0)-(X8+18, Үй), XOR, F 十字 カー ソル を 表示 し ます 
8 LINE (XO, Y8-55 - (XB, Ya+5) , XOR, 7 
8 RETURN 


15444 IF РК=@ THEN RETURN 


1581 


8 I=1 


15020 XX-PACI,820:YY-PACI,1»:GOSUBISaG30:G0TO15188 


1583 
1584 
1518 


XOR, 7 


OR, 7: RETURN 


8 LINE CXX-18, YY) = COXG* 10, TY 
8 LINE CXX, ҮҮ-5)- (ХХ, ҮҮ+5), X 
8 K$-INKEY$ 


15118 IF К$=СНК$ (13) THEN 60548165888 1 
15120 IF КФ=СНЕФ (28) THEN I=I+1:IF ІОРК THEN 1=1-1 ELSE 60$4815830:60Т101582й ғ 
15138 IF K$=CHR$ (29) THEN I=I-1:IF І<1 THEN 1=1+1 ELSE GüSUBiS5836:G0TO015828 т 
15135 IF Қ%-"!" THEN GOSUBI1SB838:RETUREN 
15148 601015108 


16606 CLS:LIST?G888:CLS T 
15005 LOüCATEA48,15:PRINT"7"»5U"4 / 23/^^a/ COLOR 3-**n»à":LOCATE4080,15:PRINT РАСТ, 2) ; { 
UE a Re г 
166018 LOCATE48,17:PRINT"LINE COLOR 3 カエ マズ ヌカ テー (ТИМ) " т 
15812 IK$-zINKEYS$:IF ІКФ-"Ү"ТНЕМ GOSLUBSB86:ELSE IF ІКФ< > "М"ТНЕМ1&5012 H 
15930 GOSUB7800:LOCATE40, 18: INPUT リト デフ COLOR 三 FAN? 132-255) “P4 1 


18848 IF PA<32 OR PAX255 THEN 839 
15050 PA$-"" 

18868 FOR J=1 TO 8 

14878 PA$=PAS+MIDE (CGPATS (РА), 1+8, 1) +М1О$ (COPATE (FA), 1+16, 1) +MID* (CG 


ЛИР STIEJ|-T- 


m анның ннн ымен) 


2 
5480 NEXT 
> 


168 
15090 CGEN1:FOR J=70 TO 7?:FOFR HH=a ТО S:LOCATE.T,HH:PRINTCHR$ (PA? : NEXT: NEXT: СЕМ 
ü 


161808 LOCATE48,19:PRINT"OK? Сим" 
161180 IK$-INKEY$:IF IK$-"N"THEN GOSUBé8680:CLS:RETURN ELSE IF ІКФ< > "Үү" 
15120 PACI, 2? =РА 

15130 GOSU84008080:CLS:G0SLB15S828:PAINT (XX, YY? s B, T 
1 S838:RETURN 


HEN16118 
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© д ошт ХХ в E G NE. п 3 5 а > n £ a し > Z X dg. 
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す も し 0 る を 0 0 2 ЖАТ 5 ӘНДЕРІ С ` > 让 
る ら ま 0 に j 0 0 0 だ 2 3k > £ Ë > 2 & tx Z > > ° 
L い ぇ 0 は (000 b $ ZX b > Š ちと 聞 と も の る つ | us 
"な は íj ` 7217 0 0 3 € € U T £ b い い 6 Z “の きき 二 
z い 5 以 b か fT 0 る ся ik. 206259 7 画 と T 
の > 前 の ら か 行 の 2 る い が 無 は デ Mü ° 4 像 ペ 画 
| ‚ @ 3 2 | 1 £ > 画 7 
тие Nds THe `` сови D 
E E ME ト ぃ 着 戻 カ す す 実 必 " グ 後 に グ 
nut О だ で 名 も る ¢ TF 2 ЕЖ Š 
t 23 x >Z É” X з Toc w BF OE OS ` ж ` 2 А 
Paint data file name ? | Я れ り = 7” о ó а bh $ "WP Ж (i 繰 描 を 
324 | š 用 t "s £ T = 部 な テ 同 = X 7 用 り か “Ж 
TEY 7 8 EFO TE Pk | 上 返 れ ら 
ое の か デ で ゼ はら < の し る せ 
xe DAA S zm ЕР РС “` b 注 に わる 
әры. тә 使 る き 他 > X な Ú だ 
a m EH WR 2 H "上 の トド 点 5 NOW 
m £ j Z + = из が ジ の x p [s 

ағас 2 7 し 認 る ән = 挙 

= É а 002 > 5 T 時 た > m げ も い 
& W B^? A か る は £ > Z 9 3 
5 ә o5 m В b 2 т 込 2 is ° X. 
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20 5 
38 P 
44 P 
S8 W 
óð D 
70 W 
75 K 
76 0 
ва C 
vü I 
188 

110 

158 

178 

isa 

1789 

200 

218 

228 

1898 
1881 
1002 
1893 
18804 
1885 
1886 
1887 
1098 
1018 
1811 
=STR 
1912 
1613 
1028 
1030 
1948 
1858 
11068 
1116 
1128 
1138 
1148 
20808 
2018 
2811 


"TT————————————————— ———Ó——Ó————— Or — ТАТ n 


CREENO, а, ё 
RWG 


ALETO, 8:PALET1, 1:PALET2, 2:PALET3, З:РАСЕТА, 4:PALETS, S:PALETó, 6 :PALET?, 7 
IDTHƏ8:COLOR7, 8 

EFINT А-2 

INDON (8, 8» - (639, 1992 杞 期 认定 

EY10N:KEY2DN 


N KEY 6051859680, 40080 
LS 4 
=0:Z=0:Z0=Z:T=7:PK=0 
DIM X¿(200), Y(200:, PA (2808, 2) 
CLS 
LOCATE0, 12:PRINT"Paint data file name ?¥:LOCATEG, 14: INPUT ЕФ 
OPEN"I",1,FL$ 
INPLUIT&1. PACO, 0), PACO, 1), PACD, ご) ATEI я /O4 の ん まず 
FOR 1=1 TO PAC(0,2) 
INPLITR1, РАСТ, 0) РАСТ, 1), РАСТ, 2) 
NEXT 
CLOSE 

INFUT"Line data file name ?";FL $ 

CLS:J21:Ds8:LOCATEO,21:1-0:GOTO1166 

F ゴ =1 

FF も =FL ま 

FF$=FF$+STR$ (FJ) 

IF FJ=1 THEN OPEN"I",&1,FF$:INPUT&1,Z:GOTO1687 ライ ン テ ー タ を LOAD し な が "らち 
ОРЕМ"Т", #1, FFS 自動 的 に テニ タ 文 を 條 成す る 
FOR М=1 TO 200: INPUT& 1, X (M), Y (M) š NEXT 

CLOSE:D=0 

PRINT 288080+J%10; "DATA"; 

I=I+1:D=D+1:IF X(D)»-2à8 THEN ※ ま =R 1TGHT ま (STR ま (KCD))」。LEN (で STR も (KCDy))-1) ELSE X$ 
$OCD 

Y$-RIGHT$(STR$ CY (DD, LEN (STRS Cr (D22 2 - 12 *PRINTX$1", "іу; 

IF Х(02<8 OR I-18 OR D-28608 THEN 1928 ELSEPRINT",";:GOTO 1811 

KEYO, CHR$ (30) *CHR$ C30» *CHR$ (13) *"GOTO1830"*CHR$CI3» +СНК$ (31) :END 

IF X4D?-2-2 THEN J=J+1:GOTO2000 

J=J+1:I=0:PRINT:IF D=200 THEN 1858 ELSE GOTO1018 

FJ-FJ«1:GOTO168003 

PR INT" ら 999 рата" ; 

X$2"-1":Y$-sRIGHT$(STR$(AcCOH, 125, 12 

PRINTX$; ","5:Y$; 

KEYO, CHR$ (30) *CHR$ (30) «CHR$ C13) + "GOTO1140" «CHR$ C13» +СНЕФ (31) tEND 
GoOTO1882 

CLS:D--1:LOCATEO0, 21:1=-1:1=9 

PRINT 40000!+Jxið; "DATA"; 

1=1+1:0=0+1:1Е PACD, û) >=9 THEN X$-RIGHT$(STR$ (РА (0, 0 y, LENCSTRS (PACD, 8222-1 


2 ELSE X$-STR$(PA(G, 002 


2012 
2013 
28014 
2026 
2030 
2040 
заве 
76806060 
9010 
7028 
7830 
0560 
9 る 9 
$055 
9078 
7938 
91080 
9110 
9120 


Y$-RIGHT$STR$ (РА (О, 129 , LEN (STR ま (PAD, 1222-102 
Z$=RIGHT$(STR$(PA(D, 22» , LENCGSTR$ (РА (D, 222) -12 :РЕ 1МТХ$; ^, "РҮ Р", "FZ 
IF 1=5 OR О=РАС@,2) THEN 2020 ELSEPRINT",";:GOTO 2011 

KEY8, CHR$ (38) +СНЕФ (30) +СНЕФ (13) €"GOTO2836" «CHR$ (13) «CHR$ (31) : END 

IF D=PA(0,2) THEN 3088 

J2sJ*1: IZ8:PRINT:GOTOZ26010 

END 

OPTIONSCREEN2 \ 

SCREENg, 0, 0 ТЕРИ T-I XIS $a 8 Im 4 81720) 7°07" 7a G$ 
РЕМ 

PALET8, 0:РА ЕТІ, 1: РА ЕТ2, 2:РА_ЕТЗ, 3:PALET4。 4:PALETS, S:PALETé, é IPALET?, 7 
NIDTHSe:COLOR7，B 

DEFINT A-Z 

CLS4 

МІМООЫ(0, û) - (639, 199» 

READ X, Т2:Т=Т2:1Е T2=@ THEN T-7 

CLS:J-8 

JzJ*1 

READ V, W 


eee 


qr canit] oett] ertt] не] aaa 
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f 9138 J=J+1 т : 
г 9140 READ VI, Н1:1Е U=-2 DR Ui1--2 THEN Z3=Z:: IF Ui1--1 THEN 60709118 ` 
i ELSE LINE (Vy, WD = CU1, 12, PSET, T:U=U1:l=W1:60TO 913 d 
i 9150 RESTORE48000:READ X0,Y0,ZO:FOR 1=1 ТО Z0:PA$-"" E 


$158 REAÓDX,Y,Z:FOR 1-1 TO Š 

9178 РАФ=РАФ+МІОФ (CGPATS (Z). 1+8, 12 *MIDS (CGPATS OD, 1+16, 12 +*MID$ (CGPATS (Z), J 
9180 NEXT i 
9198 PAINT OG, Y) a PAB, T: NEXT i 
ọ200 IF T2-8 THEN RESTORE z8818:T-8 ELSE END 
92180 J-8 

9228 J-J*1 

9238 READ VW 

72480 J=J+i 

9256 READ Ul, ,W1:IF U=-2 DR 2 
LINE (М, I) = (V1, Hi), PSET T:U=U1:li=H1: GOTO 


SA. 1 
+234, 1? 


LSE IF \1=-1 THEN GOTO? 
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x + N = <, ° 
т > い Ж 各 € Uy ss k H LITER > t E * ZZ АЕ т ат 
1 о の 際 キ ЗИ Ук. ЕТ ае 
д 次 t ©) | ST J T Ww 7 3 dd € EF ES: | р que ^4 
の > 使 の b od は イオ b» =< > 画 иж Ем: 
ゴム 画 い 操 * の T ` аши ук >з ШЕ 
L 名 ШЖ は 1 出る さい ドア に Oo メデ モト 5729 В 
あ が 5 の Л Яй, 2 JJ > m ^ 1 ウ ЭС 44 р Ë 4 e 2 2 + 
る = F 例 o | c Bap c X > k = C % BEAUTE 値 
"tS os C を は д 3 ІН [п] H Š > は Ф S L 2 4 = 2d Е ү. 
| Кк ПТ НЛ Т rt | 
れ м た T jJ の て < $5 X Ж o. Y 
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я 2 か と 8 を ? wkt ov COR t MOX KR K 
P MEN b め 入 = £ L 画 る hg E l. < 值 3 指 の 
ト > や な た れつ の 名 て H 24 u # 2 а を oU x 項 
= Bow Др g れ waw " Е". < = ら イ 
D #1 5 СМ 2 < O [ш ま 大 一 L | > ë 
4 - < 为 Те - & > : 次 
b fy: c d Мой = а а ESE KW 
E Ú > W SG H Q 2: èn e ЕС ЯЗ 
5 oW Oye 2 Жж 2 “ы 2) 7 x жу -/ 名 が м 
的 fT à 5 m Т 2 > 1 ° み デ み ト 
ИЗ бо ` y bEST 形 フ 5 m» 
で ル 後 も プ 〇 を や 2 Š を グ | 指 
あ 2:0 L cm TH と ч » 1 模 作 エラ ス Ж 
1 Сї? s pm dv z д А エ を 
ば p и 5 受 3 €e mS 様 る ж 9) 4 ou 
олат легки Hm = 519 
# “7 А? と > x= は 
2799009.92%5- 总 om ? u ti A w [E + О к 思 も H 7 x ow БЕ? 
45 à 1932 ? 055421. р 4 "m の い + P $ | 7 が る 
задаст ома и 05 ñ їй 
の る れ = と 2 M = x £w 
Ë ば 納 に す 現 - まん L mx 


表 1 タイ ム ベ ー ス エディ ター 内 で の キー 操作 


МНЯ カー ソル 移動 キー 
` |] キー 次 の 項目 へ の 移動 
[SPACE キー 
現在 の 項目 を 消し て 、 次 の 項目 へ 移動 。 
JSHIFT)« ОЕ x— 
現在 の 項目 を 消す の に 使う 。 入力 ミス の 場合 、 こ の キー で 1 項目 消し て か ら 指 定 し よう 。 


reu ПМТ) 
Т НТЕТ| + pgL | キー 


1 行 割り 込み た いと き に 使う 。 例 えば 70 秒 と 100 秒 の 間 に 90 秒 を 割り 込む 場合 、100 秒 の 行 に カー ソル を 合わ せ て 、「SHTFTI 


ь INST | の キー を 同時 に 押 を う 。 1 行 空白 の 行 が で き る 。 その 行 を 90 秒 の 項目 し て 指定 し よう 。 


DEL | キー Т 

1 行 消し た いと き に 使う 。 例 えば 70 秒 が 不要 に な っ た と する と 70 秒 の 行 に カー ソル を 合わ せ て | INST сез; 
その 1 行 が 消 る れる 。 к ылай! 

その 他 の キー 画面 の 最 下 行 に 表示 され る 指示 に し た が っ て いた だ きだ い 。 

pasa ВЫ 
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ә" ep —x I^ Bi. 
BINS “АН. ose" ので っ SU КАЖ ако А пир к-р o Cho(nnA)k—aem^ugvxrxz 
SO RR SHE’ ue C x > ЕСС 人 IANA 全 二 人 让 = ee ЕЕ, 49.0 


PA MD © EDEN 04 00° A ORA ЗЫП So mu Gor) VOC GELA М 06 AHS Қ-ха қы а-ы A 


R2 デジ タル テロ ッ パ ー プ ログ ラマ ー の 詳細 図 
1 … サ ンプ ル 7 タイ トル 2 エラ ブー 「(①17 種 類 の サン プル より タイ トル を 選ぶ 


② カ ラー 指定 を 行う 
③ 表 示 場 所 を 決め る 


2… グ ラフ ィ ッ ク Л x Я ツク ルーーー[F1 ライ ン を 引く 

F2 円 を 描く 

F3 塗り つぶ す 

F4 ドッ トカ ー ソ ル の 移動 
F5 カラ ー 指 定 


3… グ ラフ ィ ッ ク タイ トル 7 イレ ルー [ F] プロ グラ マブ プル キャ ラク ター ジェ ネ レ ー タ ー 
F2 17 種 類 の サン プル より タイ トル を 選ぶ 

ЕЗ 漢字 を 入れ る (漢字 R OM が 必要 ) 

デジ タル テロ ッ パ ー プ ログ ラマ ー F4 表示 場所 の 移動 

F5 カラ ー 指 定 


4 … テ キス ト タイ トル 2 イレ ルー つつ |F1 プロ グラ マブ プル キャ ラク ター ジェ ネ レ ー タ 
| F2 キャ ラク ター ジェ ネ レ ー タ 

| F3 反転 (リバ ー ス ) 

F4 表示 文字 の 大 きき 指定 

F5 カラ ー 指 定 


5… プ ログ ラム エン ドーーーーーーーーーーー+ ((①D プ ログ ラム の 終了 
② 次 の プロ グラ ム の 選択 
⑧⑬③ フ ァイル の CLOSE 


6 … タ イム ペー スエ ディ ター Я ミル 


( 注 ) グラ フィ ッ ク HAM ボ ー ド が な いと き は | 一 3 まで は 表示 で き な い 。 漢字 ROM ボ ー ド は 3 、4 の み 必 要 。 


表 3 表示 文字 の 大 き さ ( 項 目 4 の F 4 て 選択 する ) 
表示 文字 の 大 きる は 、CSIZE 0 一 CSIZE 3 まで 4 種類 有る 。 最 初 は CSIZE 3 に な っ て いる 。 


大 き さ =0 к; | EE Wo 
CCSIZE-0 | 8X 8 ドット の 通常 の 40 文 字 モ ー ド の キャ ラク タ 
ЕЙ vig "sts: 8 
C(CSIZE-D | WES X 縦 16 ド ッ ト の 縦 2 文字 分 の 大 きる の キャ ラク タ 
— 横 16X 縦 8 ドット の 横 2 文字 分 の 大 きる の キャ ラク ター 
فا‎ | 
E — ан 1616 > h OH 2 倍 の 大 きる の キャ ラク ター 


(CSIZEー3) 
(BASIC マ ニュ アル CSIZE 命 令 を 参照 の こと ) 
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INIT:WIDTH 48:CLS 4 


20 COLOR INT(RNDX7) +1 る XIIA (C$ Š ヒー 行人 全部 な 
38 CSIZE 3 ТАХ СУ 

40 LOCATE 8,4:PRZNT #0, "カケ サラ ブナ レン ジュ ウリ ЗЕЯ ССС. mg を 王寺 ん げん た 
ら LINE 4(1,12-(38,82,"X",B し て し ます 

Та GOSUE 480 

88 LOCATE 0, 12:РРІМТ #90," 2 FSS 1742 deser 

98 PRINT #0," 2 ・・・ 272) духи 

188 PRINT #@,” 3 ・・・ 3722 カケ サド フン 

118 PRINT 86," 4 ++» pap” 


28 PRINT #0," トド レニ シマ スカ ? "j 

138 REPEAT 

148 BEEF 

158 DU$=INKEY$ (1 1^43C03550Uh2t8 NERF, 
168 UNTIL DU$22"1" AND DU#<="a" 

170 PRINT #8, биз 

189 KETA=INT (10^ CUAL (DUS) - 12 うそ ーー /у, 


Rm 70) 83 
198 ОМ i-<(KETA=1000> GOSUB 388, We s IPILE DAT р 07, ZNS 5a2C € $87 77-2v2? 
200 LOCATE 16,20:PRINT "FIN キー ラー オジ テリ 


218 DUS=INKEYS (4: F-DPPSMIESRUN 

228 RUN 

238 REM 

248 CURSOR 8,12:PRINT СНЯ$ (26) 

250 CSIZE З ] ENDZn 

2é8  CURSOR :2,14:PRINT #0, "THE END" 

Spa END OT ти УТТЕ & ABTICÉ Е. TEMEI oU EA, 
298 REM 

308  INIT:CLS:CONSOLE 8,24 

314 CSIZE 3 

220 TK=g 

338 FOR 1-1 TO :8 

зав A= CINT (RNOKPKKETA +1) EOD М ОТЕ T LIS 

358 B-INT(4RNDXS 5 +: 

а С=ажв 2 КЕ меде атары 

278 LOCATE 1z,.CSRLIN:PRINT #0 di enim" "IMID$OGTRSGDO,.20;" = "j; 

sea FOR Ј=1 TO 3 

398 DU$-"" 

499 REPEAT AD а? EEEFIEL AR НЕНСИ 
418 REPEAT 

420 IK$sINKEYS (1) 

аза UNTIL :IX$2-"1" AND IK$<="9") OR (IK$-"O" AND (ЕМ(ОЦФУ УӘ) 
440 DiU$-DU£«IK$:9RINT #0, IHS; 

458 UNTIL LEN(DU$) =LEN (5ТЯ$ (d>) -1 

459 IF C4OUAL(DUS) THEN BEEP LOCATE РОС (e) - ЕМ (DUS) жа, CBRLINEPRINT #8, SPACE 
和 まで LEN DU まま )) ::LOCATE POS (@) -LEN (DU? x2, CSRL ІМ ELSE IF J-1 THEN ТК=ТК+10 ELSE IF J 


«2 THEN TK=TK+5 ELSE TK=TK+3 
ата IF C=VAL (00%) THEN "LOOP |ЕМО" IFX IUA 7Ч8< 550 


488 NEXT J REPEAT CV77 し を 多用 1189 
490 LABEL "LOOP END" 
sea PRINT &8:PRINT #8:РАТМТ #8 


510 NEXT I 

522  CLS:LOCATE 4,10:PRINT #8, STR$ (TK? i "ТЕМ 29; <— 4B (5 5 H 

530 IF ТУ>74 THEN 50508 540 €——. p 一 = < 
таны 758 CE & 5 570Ic43/3. OS U PEE CTS UI 

559 REM 

5 る 4 TEMPO 123 

578 MUSIC "010279464865 +С8-БбАаб+р2 -– “S+CFE5 +3 +E +СВА+Е +Е+с+р2-5+са+Е: V18C4RARASRAGAGRS 
G2R2G4RARA«C«*CGFRAFAEG2R2G4«C:U18204S4RARAEADRS- -aG2R2CAR9RGSRS-ASR2CA4G" 

588 RETURN 

598 REM 

6088 TEMPO 128 1 
$18 MUSIC "U1805GSEE7FS5DD?CSDEFGG7TGSEEEFDDO CEGGEEE?" г 
6280 RETURN Ы 
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ピア ノ 演 


出来 な い 人 の た め に 考え られ た バン チロ 


ー ル に よる 自動 演奏 装置 。 大 型 フ イ ゴ 4 個 を 
つけ 、 バ キュ ー ム を 利用 し て その 回 路 に つけ 


られ た 弁 の 開閉 (ON-OFF) の つみ か さわ ね で 、 


アー ト 自 動 演奏 装置 付 ス タン ドウ ェ イ 社 


製 ピ アノ (1917 年 アメ リカ 製 ) 
880 t К. 38b 5883 СЗ 


演奏 者 の ひき いろ を 再現 する 。 
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"U10094G4AG*C8 -Ббаб +02 -5 +С4Е5 rG += «CBA*F *E*C*D2-B«*C4 «E:U10D4RA2RARAGAGRGS 


G2R2G4R4R4*C*CGFRAFAEGZP2G4*C:18048ARARAEJADRS-AO2R2CARTRSRZ-A2R2C4G" 


580 RETURN 


$78 REM 
680 TEMPO 128 
810 MUSIC "U1080SGSEE 


620 RETURN 


TFSDD?7CSDEFGGaG7GSEEEFDDOCEGGEEE? " 


(ЖИЕ А-С 


BRUCHIGT с; 
ESSE 
ド C 
ド #( レ b ) # C 
L D 
レ #( ミ b) #D 
ミ Е 
= F 
ファ #( ソ b) #Е 
ソ | G 
|7#(2Ь) | zG 
> А 
2#(z b) | ЗА 
54 | B 
(オク ター プ 0 1 一 0 8 一 数 字 が 大 きく な る 程 オ クタ ー プ は 高く 
な る 。 


また 、 音 符 の 前 に 二 を つけ て 1 オク タ 
ー プ 上 の 音程 を 、 一 を つけ て 1 オク タ 
ー ブ 下 の 音 程 を 表す 。 


* 注 * で か こま れ た 変数 を スト リン グ デ ー タ と 言う 。 


ӘЖЕ V0 一 V15 一 数 字 が 大 きく な る 程 音 量 は 大 きく な る 。 
(④ 育 の 長 さ 0 一 9 一 音程 (4A~G) の 後ろ に 数 字 を 入れ 、 音 の 長 


き を 指定 する 。 
Es 音 
1 


の É š 
(32 分 音符 ) 
(16 分 音符 ) 

( 付 点 16 分 音符 ) 
(8 分 音符 ) 
( 付 点 8 分 音符 ) 

(4 分 音符 ) 

( 付 点 4 分 音符 ) 

( 2 分 音符 ) 

( 付 点 2 分 音符 ) 
(全 音符 ) 9 


E) 音 の 長 さ は 4 分 音符 (整数 5 £ を と | と し た と き の 相 対 的 な 
値 。 整数 の 指定 が な い 場合 は 前 の 音 と 同じ 長 さ を 意味 する 。 


対応 する 整数 


— 


A w N لہ‎ ko xe sj- xj 
© чо льо м O 


⑤ 休 符 の 長 さ R0 一 R 9 一 数 字 が 大 きく な る 程 休 符 の 長き は 長く 
な る 。 


GE : (コロ ン ) 一 コロ ン で 区 切る と 2 重 ま た は 3 重 和音 に な る 。 
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汎用 フラ リー ボー ドーーーーーーーーーーーーーー 一 一 142 


ひ PCiE 
PEGER Y 7 下 一 9 
ыы 


وو )| ر 
ビデ オ 入 力 端 子 21‏ 
ビデ オプ プロジェクター 105‏ 
UU Е 122‏ 
ВЕЕР 128‏ 
標準 複合 映像 信号 105‏ 
Жж 2941 31, 94‏ 
ファ イル 名 (ファ イル ネー ム ) 31, 113‏ 
ファ イル を 見 る 方 法 31‏ 
ファ イル が CLOSE る れる 一 ーーーーーーーー 一 124‏ 
VHF ア ン テ ナ 端子 21‏ 
VTR 125‏ 
FORTRAN 134‏ 
жу 107‏ 
プラ イオ リティ 機能 140‏ 
йух я 42‏ 
プリ ンタ ー 用 端子 21‏ 
フロ ー チ ャ ー ト 137‏ 


フロ ッ ピ ー デ ィ ス ク - 18, 56, 57, 140 
フロ ッ ピ ー デ ィ ス ク ド ラ イブ (FDD) 56. 61 
フロ ッ ピ ー デ ィ イス クイ ンタ ー フ ェ ー ス メー61.140 


アウ ワー ム デー スズ 21 
ブロ グラ ミ シ ジ シグ" 18 
A FA 18, 34 
プロ グラ ムカ ウン タ 136 
プロ グラ ム の 保存 140 
プロ グラ ムリ スト 32, 43, 91, 110 
プロ ッ タ 49 
へ BASIC 18, 31, 34, 94 
BASIC ROM 26,106 
変数 73 


ほ ЯЖ-------------28,56,57 
ポー カス ーーーーーーーーーーーーーーーーーー21 
ボ ポート ーー 142 
ов 
EP yW8&i—— Pt t 
マッ チュ ホク #==—— TY V Yt 
А ІіКУУҒ------------11 
& a7 a—A4——————————37 
MUSIC — — — F — —— —]130 
со — — — — — 3185 
вк 6 
ХА4у%-Ж-Е------------21 
A4 ZZ 4 > 于 一 أ‎ 
Ад ——53 
Ала- Е------------124 
メモ リ (記憶 素子 ) —— DM. 9 
メモ リエ リア ーーーーーーーーーーーーーーーーー19 
メモ リ の 保存 一 一 ーーーーーーーーーーーーー56 
ОЕ — زه‎ 
ーー 
ЖОҒ bM —— وهو‎ 
ルツ 
پپپ‎ KH 6 
бы UBF? TF a إو‎ 
mE p ووو‎ 


ユニ バー サル ボー ドーーーーーーーーーーーー 一 一 142 


よ НОН 4 


Фк وو‎ 
44 ビ ピン コネ クタ ーーーーーーーーーーーーーー 一 一 一 142 
5 7 x>+R]i#—— —————142 
ВААА P — — —1436 
乱 処理 ーー D 
乱数 52 
$92 142 
り YR > T 30 
LIS P— — —— — ——— — 4 
J +> 下 А 4 > +— —— vr— vP  -.,).h IN 
y € оо 
Г] — — —— —51 
а レジ スタ 部 135 
A LOGO 134 
ロー ド 28, 30 
ROM 106, 136 
ROM ベ ベーシック 23 
ロー ル 紙 42 
RRRA —— 5 
із ワー ジロ 32, 42, 140 
和音 130 
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BASIC コ マン ド ・ ス テー トメ ント 関数 の 


( 注 ) プ ログ ラム リス ト に し か 書か れ て いな い コ マン ド 等 は 
ここ に 記載 し て いま せん 。 
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用 語 イ ン デ ックス 


あ IC 19, 59, 136, 142 
OMG 
оха у | aM 
1Z0 ポ ボート 106 
1/0 ポ ー ト 接続 用 ツウ ケット ーーーーーーー 一 107 
L/O»—F 49 
L/ Off: —— — — — — — — — ———136 
а e — EL 6 
アセ ンプ ブリ 134 
WA lJ, Sp g#—— E 
アス キー 配列 20 
アダ プ タ ボ ー ド 142 
ІРІ---------------10 
RGB ІМ 7—9] 
RGB 信号 104 
RGB 信 号 用 ケー ブル 22 
RGB 入 力 方 式 104 
い (プロ グラ ム の ) BAE 
4 $334 1—56 
Дий — A4 ————————————3 
印字 方式 141 
イン ター フェ ー ス —49 
イン タダ プリ ターーーーーーーーーーーーーーーー 一 一 134 
5 WINDOW 機 能 73 
ぇ АР55{  -----------28 
エク ステ ンション ボー ドーーーーーーーー 一 一 142 
5Ер5------------------123,144 
МТ5С 105 
FDD 56 
MS〆DOS 136 
エラ テー — 
8) 
お OS 136 
ォ ー デ ィ オ 端子 21 
音 の 長き 130 
A74» 139 
ォ オプション デバ イス 取付 用 パネ ルーーーー 一 21 
オォ ペラ ンド 34, 70, 98 
音程 130 
音量 130 
is 外部 記憶 装置 18, 55, 106, 136 
回路 基板 142 
カウ ンタ ー リ セッ ト ボ タン - 一 一 一 ーーーー 一 一 18 
拡張! プ 0 ポー トーーーーーーー 一 49。 125, 140, 141 
拡張 上 プ 0 ユ ニッ ト 142 
HEYET 56 
カセ ッ ト ベ ベーシック 61 
же о F ka — ——ə v əpəo Oa 23 
カッ トイ ン 123 
カッ ト ア ウト 123 
紙テープ リー ダ パ ンチ ャ ーーーーーーーーーー142 
画面 クリ ア 93 
画面 の 比率 (コン ピュ ー タ と スー パー イン ポ ボーズ) 一 一 109 
カラ ー ナ ン バ ー 117 
カテ ラージ ヴ リ シタ ーーーーーーーーーーーーーーーー 一 -#9 
カー ルケ ー プ ブル 22 
ガラ スエ ポキ シ 142 
漢字 ROM 140 
漢字 ROM ボ ー ド 107, 125 


関数 70 
完全 色 同 期 回路 141 
$ žk- F—— a š 24. 32,4 
cg 
キャ プ テ ン シス テム ーーーーーーーーーーー 一 一 141 
キャ ラク ター 一 88, 140 
キャ ラク ター ユー ドーーーーーーーーーーーー 一 88, 93 
キャ ラク ター ジュ ネ レ ー タ ー-ー 一 一 一 107, 140 
行間 39 
行 番号 30 
キロ バイ トー 
( 空白 を 入れ て は いけ な いと ころ 70 
ZITZAIZ AZ) 37 
グラ フィ ッ ク コ マン ドーーーーーーーーーーー 一 104 
グラ フィ ッ ク シ ン ボ ルーーーーーーーーーーーー 一 一 20 
FIRII Ун و‎ 
グラ フィ ッ グ ユー ティ イリ ティ ーー 一 73.108,142 
7274»2ZRAM— —————]1]40 
732774 y У RAMR— F———106, 107, 125 
732714 y 2 RAMIE#E v 107 
クリ ア 124 
クリ ー ン コン ピュ ー タ ーーーーーーーーーー 一 一 104 
クリ ー ン 設計 一 一 ーーーーーーーーー 一 一 22。 134 
クロ ッ ク 23, 25, 100, 107 
け 計測 ・ 制 御 シ ステ ムーーーーーーーー 一 一 142 
5 
gg 
こ 高 解像度 ディ スプ レイ ーーーーーーーー 一 19 
コネ クタ ー 104 
об 
COBOL 134 
ase 31, 34, 70, 94 
CMOS RAM ボ ー ド 142 
eu.) 30, 34 
CONSOLEZX 141 
コン トロ ー ル コー ド -93 
コン ピュ ー タ グラ フィ クス ーー141 
コン ピュ ー タ 信号 105 
コン ピュ ー タ モー ドーーーーーーーーーーー 一 一 123 
а + FIG 61 
サウ ンド 機能 130 
削除 (文字 ) 81 
座標 変換 機能 140 
サ プ ブ CPU 19 
算術 演算 135 
し САТ = 
CMT 23 
CSIZE X 141 
シス テム ディ スク ーー56 
С7-8 СВО 1 23 
JIS 第 1 水準 107, 140 
CP/M 136 
CPU 19, 61, 134, 135 
周辺 機器 136, 140 
順 処理 56 
処理 方 法 ーーーーーーーー56 
ジョ イス ティ ッ ク 用 端子 ーー 一 ーー 一 21 
SYNTAX ERROR 30 
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o 99 2“ ШЇ CY 
` 


IEEE E У р погу а Шы ‚ис S e— R уш Z 
Jio C поо < ЕО. (| 
o0 © & J 4 ЕЖЕ ШІН S exer — Nr NC NL YF YN 5 Ч гу, 
«DN dc Vu NUS HO C ec orae йн: — 
КЕТЕРУ ЖА FE Xr MIN LI X 


2ПУЕ->1А0102-БООЕУ 0 

(25 5 c ル の 入出 力 や デー タ ア クセ 楽 信号 ケー プル ディ スク BASIC (CZ-8F 
ス が 可能 。 大 容量  (ұ B01) 1319000, 

カセ エット BASIC ЕТЕ TET 


両面 6。25 イ ンチ 80 ト ラッ ク 
ドラ イブ 形式 デュ アル ドラ イブ 


Ал 


| 記憶 容量 。 | 2 ドラ イブ 655.36K バ イト | 
АС100У 50/60Hz.28W 
幅 390 X 3827330 жа 54(т”) 


256234 M Of 
は 655.36K バ イィ МЕТ КИ ен 
能 に し て いる 。(7 ООО 
バイ ト ) (本 誌 57 ДЕИ 


、 約 5.6kg 


フロ ッ ピ ー デ ィ ス クイ ンタ ー フ ェ ー ス 
(CZ-BFA) 

標準 価格 \24,000 

本 体内 に 実装 で き 、 本 体 と の 接続 に は 、 

拡張 !/0 ポ ー ト (CZ-8EP) が 必要 。 


Verre e e e 


“ 


“ІСТЕПТІ 
ж” ДИР ы 
5: +6 8 


漢字 ROM(CZ- ВКА) 標準 価格 \38,000 


グラ フィ ッ ク RAM(CZ- BGR) 標準 価格 \32,000 


モリ ー と し て も 利用 


JIS 第 1 水準 2.965 種 の 漢字 を は じ め 
ひら が な 、 カ タカ ナ 、 英 文字 。 ギ リ 
ит. CE. 記号 な ど 3.707 種 

の 文字 が 収め られ て いる 。 こ れ ら の 
文字 は BASIC コマ ンド に より 簡単 
に ディ スプ レイ 画面 に 表示 で きる 。 

きら に 漢字 パタ ー ン を 標準 装備 の ユ 
ー ザ ー 定 義 の キャ ラク タ ゼ ネ レ ー タ 
ー に 移 じ か える こと で 、 FI 


と し て 扱う こと も 可能 だ 。 漢字 RO 
M を 使え ば 、 ビ デオ 編集 時 の スー パ 
ー は も ちろ ん ワー プロ に まで X 1 を 
発展 8 させ る こと が で きる 。 な お 、 
BASIC で は 16 ビ ッ ト X16 ビッ ト の 
漢字 パタ ー ン を グラ フィ ッ ク 画 面 に 
描く の で 、 オ プシ ョ ン の グラ フィ ッ 
ク R AM( 左 ) が 必要 と な る 。 
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1 ドッ ト プ リ ンタ ー(CZ - BOOP) 標準 価格 \ 142,800 
| : —" 高速 印字 の シリ アル ドッ トマ トリ タス 方 式 を 採用 し 、 行 単位 に デ 
ЕЛИЙ, MEES. АРЕНЫ REHAR, Mi 


| 方 印字 を 最短 距離 て 可能 に し て いる 。 通常 の 印字 は も ちろ ん 、 т 
/ 4 x НЫБ ЕРШЕН Б 7Y v MONA. RiA— ROSE. 
/ トト ee . " で きる の で 書類 作成 に 便利 。 超 小型 の 印字 ヘッ ド 、 簡 素 化 され た 
| с と a 


機構 部 し マイ クロ コン ピュ ー タ の 採用 に より 小型 軽量 し な っ て い 


| る 。( 本 誌 49 ペ ー ジ 参照 ) 
1 
| X7) vL 4X—47»2—7x—7WUcGUC HI, Tiy 7 —7 v [H8 
7 
КАЛ АКЫ ЕЕ сс ее F ト リク ス 両 方 向 
| 222 種 (アル ファ ベッ ト 大 文字 ・ 小 文字 、 カ ナ 文 字 、 そ の 他 ) 
AX/7 SHARP 8( タ テ )Xx8( ヨ コ ) ド Е 
Y БСР! 012 .6СРІ:4. 23mm I0CPI:2.54mm 、12CPI:2.12mm 
95 'S( 10CPI、12CPI) 、47 sF ғ/5(5СРІ,6СРІ) 
| フリ ク ィ ー ド 。 ピ ン ヴ ラテ シン フィード 
| e TTS; | ACI00V、50/60Hz、90W(E NF 作 中 )、45W( 待 機 中 ) 


外形 寸法 ・ 重 重 08360 х 117330 x 4 & 133 (тт) 、 約 8 . 9 


POWER 
| EIE LL 
デジ タル テロ ッ パ ー(CZ- 8DT) 標準 価格 \89,800 
コン ピュ ー タ 画像 の ビデ オ 銭 田 は も ちろ ん 、 テ レビ や ビデ フ プ テ ン シス テム な どの ニュ ー メ ディ ア \:Ы! ЖЕ ӨЙГЕ 


со з 30 2222 ДЕА 
た ビデ オ 録 画 も 可能 。 付 属 の SEDS(SHARP Easy Draw- (本 誌 122 ペ ー ジ を 参照) 
ing Soft) で 、 タ イト ル 女 字 や 図形 を 簡単 に 伯 画 、 コ ン ピ ュ 一 仕様 

ー タ ・ グ ラフ ィ ク ス を 手軽 に 楽し め ゆる る の に し て いる 。 き = 

ら に 、 チ ロップ カッ ト や 廊 字 シャ ドウ な どの 映像 調整 機能 0000 
を 装備 し て いる 。 音 声 入力 は 、 ス テレ オ 対 応 、 ミ キシ ング 电源 .消费 电力 | AC [00V.50/60Hz.22W Ы 
も で き 、 ビ デオ 編集 が 思い の まま 。 ま た 、 文 字 放送 や キャ 外形 寸法 ・ 重 量 | 幅 390X 奥 行 343X 高 さ 55(m)、5kg _ | 


HF ビデ オ コ ン バー タ (CZ- ヨ VO) 
標準 価格 \15,800 

簡単 な ステ ー ト メン ト (CONSOLE, CSIZEX) 
で 、 ぼ の カラ ー テ レビ に も 対応 が で きる 。 白 肝 画 


拡張 | / ロボ ー ト (CZ - BEF) 
ДЕШЕ Y 11,800 


面 へ の 切り 換え を 行う と リス ト も 見 や すく 《、 カ ラ X 1 の コン ピュ ー タ 本 体 (CZ-800C) 内 に モッ ティ ング 
ー 用 の ゲー ムツ フト も を の まま 楽し め る 。 グ リー s i n ID n ады 
ン デ ィ ス プレ イ 使 用 時 に は 、 8 段階 の 濃淡 モー ド i E рде ы ея vr ИЯ е : 
o ñ z — 2 の 完全 RTF を ui 
шз > е вени 2 ОБО Ж К L Z 2 
只 ° 


141 


са уж 
れれ | | 
は た Xx 
C 各 は O 
Z 种 > 
g ポポ パ | 
е 1 > 2 
E F 3 机 
% 557 
2 
т pp 
iom "2 
6 X O 
5 ШІ 
т жи 
ト 用 0 
ео 
前 設 0 


エク ステ ンション ボー ド 
(PI O- 4024) 

E ДЕЙШ Y 5,500 

拡張 1/0 ボート 内 に 実装 する 、 各 
種 ボ ー ド の 調整 試験 用 し し て 有効 
44 ピ ンコ ネクター 付き 

く 用 途 > ボ ー ド 内 回 路 の 試験 調整 用 
に 用 いる 


汎用 フリ ー ボ ー ド 
(PI 0-4023) 
EMÊ ¥4 800 


л.—+Р—ЖИ Л И И 


dusk OR АЕ 
込め 2, ВЕ ТСТ 
НЕОН 
М 2 
ルー 
ジ ボ ー МИ 
ЕТЕ 

(R33 211272701177 
HAASE 


汎用 イン ター フェ ー ス ポー ド 

(PI 0- 4022) 
標準 価格 \20,000 

デジ タル 信号 を 入出 力 す る た め の ボ ー ド 。 
8 ビッ ト の ポー ト が 2 つ あ り 、 合 計 16 ビ ッ 
ト の TT L レ ベル 信号 が 出力 で きる 。 ま た 、 
スト ロー グ プ 信 号 が 出力 で き 、 入 力 ポ ー ト に 、 
ラッ チ 回 路 を 内 蔵 。1.5m の フラ ッ ト ケ ー プ 
ル 付 き 。 

< 用 途 > 紙 テー プリ ー ダ ・ パ ンチ ャ 、 キ ー ボ 
ー ド 、 ラ ンプ 、 漢 字 入力 装置 な どの 接続 。 


増設 | / 0 ユニ ッ ト ボ ー ド 

(PI O- 4027) 

標準 価格 \17,000 

増設 1/O ユニ ッ ト (PIO-BOX ま た は 
М7-801/0) を X 1 に 接続 する と き 、 
必要 な アダ プ タ ボ ー ド だ 。PIO-BOX 
で は 付属 品 と な る 。 

< 用 途 >X 1 に 5 枚 以上 の ボー ド を 使用 
する と き 、 ま た は PIO-2000 シリ ー ズ 
ボー ド を 使う と き に 使用 。 
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ンス テム フッ ク 


CZ- BCH8W n CZ-89H85 n CZ-B8SR1W 


標準 価格 \29,800 標準 価格 ¥29 800 標準 価格 \29,800 
(シル バー タイ プ GZ-8CRIS も あり ) 


| x 2 
| 
F 可 fF の 7 7 E s t = る 初 | ^ * Ж ж 2 ж C л s J; 口 
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い fÉ J vnb SH D 3 r: ГЕ фат x 
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※ 本 誌 に 掲載 する プロ グラ ム は 、 個 人 て 利用 する ほか は 無断 複製 を 禁じ られ て いま す 
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ЖЄ ЈАЊ ИШ Є ПШ К?Н S EF- EST EH] H- 04 EE LO S DT D- 
ハー ЖШЕЗГІН” ІНН —iNGKE N 51248 ®— 


ya d o 


жЕ = 5- 192-94 “Ша 


KS [E] EGEBSUES-—— 


hag ENSURE пөсшкчын 


»! жұ 5s e 42 дото SRDP. 
| ES 
ا‎ 2 OHI ль 
42— TE HOH, ALY 
BUE EUG оО, 
2“ pisi 9 ) ә 47) 
222248 ^^ B ов» ДКА 
жооон 7,5659 2 19 2: i ED = 


ЖЕНЕ SEE RS BR eH E и SCR 
EH SHEREN HEKE REOR EEF 
KEIZER ER ONE 
НЕО URE HEE] lukma 
ОЕ E ШЕЕ ЖЕБЕ u КЕШТЕР 
ВЕР HST: Eq HE ОБЕ ею 


ЕГЕСІ ЕЗУ ЖЫ KD 
ЖАУәСЕН БУК 


* ま a に 未 体験 グラ フッ クス 。 


コン ピュ ー タ 画像 と テレ ビ 映 像 と の 自在 な クロ ス オ ー バ ー、 シ ャ ー プ 先進 エレ クト ロニ クス が ひら く 〈21 世 紀 の メ ディ ア 


※ 写 真 は CZ-800CECZ-800D を 組合 せ た 例 で た な お スー パー イン ポー ズ は この シス 


いま 未 体験 ゾー ン へ の 突入 。 パ ー ソ ナル コン ピュ ー 


タ の 世界 に 新しい メデ イア を ひら 〈 バ パソ コン テレ ビ 


X1 シャ ー プ "は 先進 エレ クト ロニ クス 技術 で 
パソ コン と テレ ビ の シス テム 化 を 実現 。 世 界 初 の 
スー パー イン ポー ズ 機 能 を は じ め と し た 新鮮 な グラ 
プッ クス で ^、 映 像 情報 化 時 代 に 鮮やか に 応え まれ 
も ちろ ん パー ソナ ルコ ンピュータ と し て の 高 機能 も 
見 逃 が せ な い 特 長 で ま 3CPU 構 成 、 メ イン メモ リ 
64K バ イト オー ル RAM、 さ る ら に 2700 ボ ー の 高速 
カモ セッ トレ コーダ 内 蔵 。 を し て こう し た 機能 を 最大 限 
に 発揮 きせ る 強力 な ソフ トウ ェ ア … 
X1 は 、 究 極 の 8 ビッ トマ シン と し て 、 ホ ー ム ユー ス 
か ら ビ ジネス ユー ス ま で 幅広 い 分 野 へ の 対応 が 可 
НЕ. 多彩 に 活用 で きる 、 ま る に 21 世 紀 の メ ディア で す 


パソ ジコ ユ コンテ レビ 


IM AZTLEAT/: 


バー ソナ ルコ ンピュータ + キ キーボード CZ - 800C 標準 価格 155 . 000A 45-7 27v47veCZ-800D 標準 価格 113 , 000 FH 
Q 別 売 周辺 機器 = グラ フィ ッ ク RAM CZ- 8GR( 標 準 価格 32.000 円 ))/ 拡 張 1/O ボ ポー ト CZ- 8EP( 標 準 価格 11.800 円 )/ フ ロッ ピー デイ スク CZ-800F 
(標準 価格 198.000 円 )/ フ ロッ ピー ディ スク イン ター フェ イス CZ-8FA( 標 準 価格 24.000 円 )/ ド 
\ー CZ-8DT (標準 価格 89 80011) 


デジ タル テロ ッッ 


CZ-8KR (標準 価格 38.000 円 ) 


用 ャ ー 欠 杯 式 会 社 KH 〒545 大 阪 市 同 倍 野 区 長池 町 22 番 22 号 谷 (06)621- 1221( 大 代表 ) 介 お 問い 合わ せ は 


な て 初め て 


企画 部 また は シャ ー プ エン ジニ アリ ング 引 т 1\4 東京 都 北 区 東田 端 2 丁 目 13 番 17 号 容 (03)893- 46495 £U 7c —7 98 


⑥ 株 式 会 社 下 凡 社 


雑誌 65945 一 52 Printed in Japan 


作成 可能 。 画 面 は トゲ グラ フック RAM を 使用 し 作成 、 印 届 

亀 メ イン CPU に Z80A(4MHz) 、 周 辺 コ ント ロー ル 用 と し て 
2 個 の サ プ CPU 搭載 74K バイ ト RAM 標 準 実装 の 大 容 
量 メ モリ 構成 豊 256 種 6 の 任意 の 図形 や 文字 を 再現 、 し か 
も ドッ ト 単位 で 色 指 定 が で きる プロ グラ マ プ ル キャ ラク ター 
ゼネ レー タ 夫 8 オク ター プ 3 和 音 の サウ ンド ゼネ レー タ OH 
ff. Я. FHT 付 タ イマ ー 9/1 


る な 文字 や 細か "7 > きり と 再現 する 新開 発 


『 可 能 な カレ ンダ ー 
UK 6 
@RGB4⁄# T- ECT AB HRT 
く < パソ コン テレ ビ X1 が 誇る 強力 な グラ フィ ッ ク 機 能 > 
@256 種 の キャ ラク ター が 自由 に 定義 で き 
キャ ラク ター ゼネ レー タ 夫 多 画面 切換 え が で きる 高 機能 グラ 
フィ ッ ク OIE X EO C ERNE KE ^*vy BERE 


る プロ グラ 


られ る 


供 遠 近 感 、 立 体感 の ある 画面 が つく れる プア ライ オリ ティ 機能 
@⑨ グ グラ フィック の 拡大 縮小 、 移 動 が で きる 座標 変換 機能 
⑧ 儲 意 の 面 の 色づけ が 簡単 に ご でき る タイ リン ダグ ペ イン ト 機 
能 @ 大 小 の 文字 を 同一 画面 に 混在 で きる ゃ アトリビュート 


RF ビデ オ コ ン 


ルト プリ ンタ CZ- 800P( 標 準 価格 142、800 円 )/ 漢 字 ROM 
バー タ CZ-8VC (標準 価格 15.800 円 ) 


ゃ ツ コ ン テ レ ビ X1 に は 、 ロ ー ズ レッ ド : メタリックシルバー・ ス ノー ホワ イト の 3 色 が あり ま 示 


る スー バー イン ポーズ 機能 
新開 発 の 

に より 、 コ ンピュータ 信号 と テレ ビ 信 号 の スー パー イン ポー ズ を 
実現 。 テ レビ 画面 に コン ピュ ー タ 画面 を 重ね 合わ せ て 自由 に 表 
示す る こと が 08. 新しい 世界 を 創造 し ます 。 さら に この 画像 は 
デジ タル テロ ッッ パー (別売 ) を 使用 し て ビデ オ に 録画 で きま す 。 


本 社内 電子 機器 事業 本 部 シス テム 機器 営業 部 、 国 内 家電 営業 本 部 シス テム 機器 営業 
内 産 機 営業 本 部 T 162 東京 都 新宿 区 市 谷 入 幡 町 8 番地 傘 (03)260- 1161( 大 代表 ) 


ж A OPI 、 購 入 年 月 日 ・ 販 売店 名 な ど 所 定 の 事項 を 記入 し た 保証 書 を 必ず お 受け りく だ さい 。 


SHARP 


F1 F2 F3 F4 F5 V CHANNEL A \/ VOLUME 人 COMPUTER/TV 


ШЭ Ө5% + ы... жох ( 


说 明 


DEFINT は 変数 を 整数 型 と し て 、DEFSNG は 変数 を 単 _DEFFN ` А ニー ザー の 作っ た 関数 (数 値 型 お よび 文字 型 ) を 自由 カセ ッ ト テ ー プ が セッ ト さ れ て いな い 。 = 
1 (EEO 4 C] 精度 型 と し て 、DEFDBL は 変数 を 人 精度 型 と し て 、DEFST s z} に 定義 する こと が で き 、 プ ログ ラム の 中 で 使用 で きる 。 = 
TR (OEFST) _ _ 月 は 変数 を 文字 型 と し て 定義 する DEF USR | ユー ザー が 機械 語 で 作っ た 機械 語 サ ブルー チン を 呼び а VW 
- - — — v m -w - M x セッ ت‎ 702 m Ч E. т 
T: | 指定 し た 式 の 値 、 CB. 数 を 画面 に 表示 す 出す USR 関数 に 番号 を つけ 、 そ の 実行 開 始 の 先頭 ア СЕО De ан 
4 る 。 ドレ ス を 設定 する 。 Ў ° 


— 


CALL (CA,) 


異な っ た モー ド の ファ イル を 参照 し よう と 

し た 。( フ ァイル に は バイ ナリ ィ 、Basic テ 

キス ト 、 ア スキ ー タ イプ の 三 つ の モー ド が 
>>.) 


アド レス を 実行 開始 番地 と する 機械 語 サ プルー チン を 
直接 呼び 出す 。 機械 語 か ら BASIC へ 戻る に は 機械 語 命 
令 の RET を 実行 する 。 機 械 語 サ プル ー チ ン は 、CLEAR 


LPRINT (LP). | | 指定 し た 式 の 値 、 文 字 列 、 変 数 、 定 数 を プリ ンタ ー に 
) 出力 する 。 


画面 に = 


ドレ ス を 省略 する を OUR と 


する 。 CLEAR で ア 
き を する 。 W | 


メイ ン メ モリ 内 の テ キス ト の 開始 アド レス を 設定 し 、 


NEWON (カン マ ) CEU. H5 CERT 


WRITE TM また は LIMIT 廊 で 指定 し た アド レス 以降 に 置く こ = 
テキ スト (BASIC プ ログ ラム )、 お よび 変数 を すべ て 消 る 。 E. POP を 実行 し よう と し た が スタ ッ ク に 何 
xxi る CERES Р = 一 | 一 ー て いな し 
Q yes T se | ا ا‎ ۰ ад AT. `РОКЕ (PO) | メイ ン メ モリ 内 の 指定 し た アド レス に 、 1 バイ ト (8 i | 
NEW 一 er アモ り 内 の プロ グラ LBSURRETA CRRT S. 1 5 JL ино. OR о ЕЙ К.Н) の デー タ を 書き 込む 。 デ ー タ を ・ (カン マ ) | | WHILE ルー プ に WEND が な い 。 
AUTO (A) | 行 番号 を 自動 的 に 発生 させ る 。 b 222 (空白 ) や ・ (カン マ ) БАЛФЕ. ° (¥ қалады. と 、 連 続 し た アド レス に 書き 込 _33 | v т | WHILE が な い の に WEND が ある 。 
= 一 - ` / ル コー テー> ` = 囲 = др Е に : a — ни - 
"ust (L) プロ グラ ム の リス ト を 表示 する 。 開 始 行 を 省略 する と м о x _ |l  — — 34 | Reserved ваше | ディ スク BASIC 用 の コマ ンド を 実行 し よう 
MESA: 最初 か ら 、 終 了 行 を 省略 する と 最後 まで 出力 する 。 s 一 一 一 一 一 一 - 一 -一 OUT (0U.) а К) を ポー ト ア ドレ ス で 指定 し た VS と し た 。( カ セッ ト BASIC の み ) 
LUIST (LL) . プロ グラ ム の リス ト を ブリン ター に 出力 する 。 yCOREGEUERO の も の を で に 4 O 22297785 _ 35 В without NEXT ` FOR ルー プ に NEXT が な い 。 
EFC VOI === “Spa, ТУЛЫЛ тоо RANDOMIZE (RA.) RND 関数 で 発生 させ る 乱数 の 系 列 を 設定 する 。 | 一 一 - — -- 
RUN (R.) プロ グラ ム の 実行 を 開始 する 。 た だ し 、 容 数 は すべ て Ж) сто. LE ーー ニー = : = - 36 PRINT USING で 指定 し た フォ ー マ ッ ト が 


クリ ア さ れる 。 行 番号 を 省略 する と 、 ブ ログ ラム の 最 
初 か ら 実行 する 。 | 
STOP 文 や プレ イク キー で 中 断 し た ブロ グラ ム の 実行 | 
を 再開 する 。 


指定 し た 行 番 号 を リス ト し 、 カー ソル を 行 の 先頭 に セ 
ッ ト す る 。 行 の 修正 を 能率 よく 行え る 。 


| を し た 本 回 の フロ クラ ム を Mm 除 す る 。 開始 行 番号 と 

| 終了 行 番号 の 両方 を 省略 する と 、 プ ログ ラム 全部 を 削 
_ №35. 4 d 
プロ グラ ム の 旧 番 号 で 指定 し た 行 以降 の 行 番号 を 、 新 
番号 で 始ま る 行 番号 に 付け か える 。 


sS 


長 すぎ て 出力 で き な い 。 

REPEAT ルー プ に UNTIL が な い 。 
FIELD 文 で ラン ダム ファ イル 内 の レコ ー ド 
長 が 256 以 上 に な っ て いる 。 

外部 装置 の 使用 中 で ある 。 Е 


|| オー プン され て いな い フ ァイル や 、 起動 時 | 

_ に 指定 し な い ファ イル を 参照 し よう と し た 。 
LOAD, KILL, OPEN で ディ スク に な い フ ァ 
イル を 参照 し よう と し た 。 


すでに OPEN し て いる フ ァイル を 再び OPEN 
し よう と し た 。 


OPTION BASE (OP. B) | аж. ооа оссо, со 
= | ステ ー ト メン ト に よっ て 1 に 3 
配列 変数 の 名 前 と その : 


グラ ム 中 に ラベ ル を つけ る 。GOTO、GOSU 
УЖЕ れる 目印 に 使用 す 


b im 


EDIT (E.) 


TOL 


ン を 呼び 出し 、 指 定 
RETURN まで を 実 


DELETE (D) - 


BASIC プ ログ ラム 内 の サブ ル 
され 行 番号 また は ラベ ル 名 か ら 


FOR が な い の に NEXT が ある 。 
ks ちがっ 
な い の に RETURN が ある 。 


READ で 読む べき デー タ が DATA XAN 
され て いな い 。 


規定 外 の 数 値 や デー タ が 指定 され て いる 。 | 
演算 結果 が ョ f 容 範囲 を 越え た 。 
プ ブログ ラム が 大 きす ぎる 。 配 列 な どの 変数 
を 多く と りす ぎ て いる 。 


GOTO, поза, IF な ど て 指定 し た 分 岐 先 
の 行 番号 が な 


配列 変数 の 添字 が 規定 外 で ある 
配列 が 2 重 に 定義 さ れ て いる 。 о 


RENUM (REN ) 


SEARCH (SE) 


て いる 。 


ー チ ン か ら 戻 り 先 へ 戻る と 


4 


入出 力 装置 に お いて 入出 カ ェ ラー が 生じ た | 
致命 的 エラ ー。 ; 
NAME で 変更 し よう と し た ファ イル 名 が す 
で に 登録 され て いる 。 


ce i ) いか どう か C. 指定 の 行 番号 や ス 
i 続け る 。ELSE 以 
、THEN の 後ろ で 指 
に は 女 の 実行 に 移る 
指定 され た 行 番号 ・ 


| 
t 
| 
! 


TRON Com 


ラム の 実行 過程 の 追跡 を 解除 する 。 
ルディ スク リプ ブタ の ディ フォ ルト 値 を 決め る 。 
RELIEFNI ス 内 に ある 


= = 


EC 
行 を 続け 、 は み 出 す と NE 


ЕСІГІ > 44 & 


終了 値 を は み 出 す と 
` 


FOR の 変数 と 1 対 


て 字 が 255 文 字 を 越え て いる 。 _ 
omit €5, ЕАН. ©. ) が 異常 に 
4% 


OPEN され て いな い フ ァイル を 使用 し よう う 
17, ай 


書き 込み が 禁止 され て いる ファ イル に 書き 
込 も うと し た 。 _ 


入出 力 装置 が っ な が っ て いな い の に 使用 し 
よう と じ た 。 


DEF で 定義 され 
RESUME に よっ て プ 
| 開 で き な い 。 


エラ ー が な い の に RESUME を 実行 し よう 
Ее. 


| 


< て の ファ イル を 閉じ 


ょ 数 値 型 、 文 字 型 い А 


% I 97 F E С で も よい が 、 z 『 数 の 型 は 一 致し て ` egal format エラ ー メ ッ セ ー ジ の 定義 され て いな い エ ラ ж) ここ に 登録 され て いな い 上 記 以 外 の エラ ー メ ッ セ ー ジ は 、Unprntable error と 表示 され る 。 
i れ ば ë 558 ー が 起こ っ た 。 
る 。 ブ ログ ラム の 実行 | 22 Missing operand - バ パラメータ の 必要 な 命令 に 指定 が な い 。 - 
1 行 の 入力 文字 が 多 す ぎる 。 
どる U 


= | | ume buffer overflow 
込ん で 、 変数 に 割 ИНН 
用 し 、DATA 女 の 定数 4 и 


T 対 | に 対応 し 、 か つ 双 方 25 Bad soreen mode グラ フィ ッ ク メ モリ を 、 外 部 記憶 と し て 使 
\ お うと し た 。(WIDTH80 で ASK を 実行 し 


た だ た 。) 


REPEAT が な い の に UNTIL を 実行 し よう 
どじ た 。 


.26 | UNTIL without REPEAT 


